Connaitre le panel cliqué d'un TStatusbar |
||||
uses commctrl;{$R *.DFM} procedure TForm1.StatusBar1MouseDown(Sender: TObject; Button: TMouseButton; Sh if t: TSh if tState; X, Y: Integer); var i: integer; r: TRect; begin for i := 1 to... | ||||
| Delphi - Trucs et astuces - Autre categorie | le 25/12/2004 | vu 898 fois | Communauté Delphi | |
Connaitre rapidement le nombre de fichiers d'un répertoire |
||||
function FileCount( const aFolder: string): Integer; var H: THandle; Data: TWin32FindData; begin Result := 0; H := FindFirstFile(PCHAR(aFolder + '*.*'), Data); if H ... | ||||
| Delphi - Trucs et astuces - Fichier | le 18/12/2004 | vu 1136 fois | Communauté Delphi | |
Afficher le nom des tables d'une base de donnée |
||||
uses dbtables; procedure TForm1.Button1Click(Sender: TObject); var ts: TStringlist; begin ts := TStringlist.create; Session.GetTableNames('DBDEMOS', '*.DB', false, false, ts);... | ||||
| Delphi - Trucs et astuces - Base de donnees | le 18/12/2004 | vu 2023 fois | Communauté Delphi | |
Savoir lorsqu'un nouveau fichier est crée |
||||
function WaitForFile(FileName: string): Boolean;{Wait for a file to be created. Tracks the directory were the file will be created.Returns true if file exists, false on error.} var WaitHandle:... | ||||
| Delphi - Trucs et astuces - Fichier | le 17/12/2004 | vu 953 fois | Communauté Delphi | |
Dessiner avec un effet nuage de point (Spray effect) |
||||
procedure Spray(Canvas: TCanvas; x, y, r: Integer; Color: TColor); var rad, a: Single; i: Integer; begin for i := 0 to 100 do begin a := Random * 2 * pi; rad := Random * r; ... | ||||
| Delphi - Trucs et astuces - Graphisme | le 17/12/2004 | vu 1951 fois | Tokter | |
Afficher la fenêtre d'ouverture d'une connection internet |
||||
uses WinInet; procedure TForm1.Button1Click(Sender: TObject); begin if not InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE, Application.Handle) then MessageDlg('No internet... | ||||
| Delphi - Trucs et astuces - Internet | le 17/12/2004 | vu 1415 fois | Communauté Delphi | |
Imprimer un TMemo, TStringList, TStrings, TItems, ... |
||||
unit PrintStringsUnit1;interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; ... | ||||
| Delphi - Trucs et astuces - Surface | le 17/12/2004 | vu 1410 fois | P. Below | |
Lire/enregistrer un ensemble de propriétés par exemple TFontStyles |
||||
type pFontStyles = ^TFontStyles; pInteger = ^Integer; function FontStylesToInteger ( const Value : TFontStyles) : Integer; begin Result := pInteger(@Value)^; end; function ... | ||||
| Delphi - Trucs et astuces - Autre categorie | le 17/12/2004 | vu 823 fois | Jens Borrisholt | |
Obtenir les bibliothèques de type installées |
||||
uses Registry; procedure EnumTypeLibs(TypeLibNames: TStrings); var f: TRegistry; keyNames, keyVersions, keyInfos: TStringList; keyName, keyVersion, keyInfo, tlName: string; i, j, k: Integer;... | ||||
| Delphi - Trucs et astuces - Systeme | le 12/12/2004 | vu 770 fois | Radostin Gerchev | |
Obtenir la liste des raccourcis ainsi que de l'application associée |
||||
uses Registry; procedure TForm1.Button1Click(Sender: TObject); var reg: TRegistry; keys: TStringList; i: Integer; typename, displayname, server: string; begin memo1.Clear; reg :=... | ||||
| Delphi - Trucs et astuces - Systeme | le 12/12/2004 | vu 669 fois | Peter Below | |