uses commctrl; procedure TForm1.Button1Click(Sender: TObject); begin //fixe la couleur à jaune SendMessage(ProgressBar1.Handle, PBM_SETBARCOLOR, 0, clYellow); end;
procedure TForm1.Button1Click(Sender: TObject); var ani: integer; begin form1.width := 372; ani := 372; repeat ani := ani + 1; form1.width := ani; until ani >= 656; end;
uses Clipbrd; procedure ListBoxToClipboard(ListBox : TListBox; BufferSize : Integer; CopyAll : Boolean); var Buffer : PChar; Size : Integer; Ptr : PChar; I : Integer; Line :...
procedure TForm1.Button1Click(Sender: TObject); begin // vér if ie si la liste est déroulée if SendMessage(ComboBox1.Handle, CB_GETDROPPEDSTATE, 0, 0) 1 then // si la liste...
{...}type TForm1 = class(TForm) StringGrid1: TStringGrid; Button1: TButton; procedure Button1Click(Sender: TObject); private{...} public{...} end; type TStringGridHack =...
procedure TForm1.Button1Click(Sender: TObject); const BORDER_WIDTH = 20; var Rect: TRect; begin SendMessage(Memo1.Handle, EM_GETRECT, 0, LongInt(@Rect)); Rect.Top := BORDER_WIDTH; Rect.Left...
//Mettre le code dans le fichier projet (*.dpr).program Project1; uses windows, messages; procedure MainPaint(hWindow: HWND; pt: TPaintStruct); begin SetBkMode(pt.hdc, TRANSPARENT); ...
type TMoveSG = class(TCustomGrid); procedure SortGridByCols(Grid: TStringGrid; ColOrder: array of integer); var i, j: integer; Sorted: boolean; function Sort(Row1, Row2: integer): integer; ...
procedure TForm1.Button1Click(Sender: TObject); begin with RichEdit1 do begin // Move to the last line: SelStart := Length(Text); Perform(EM_SCROLLCARET, 0, 0);} // Move to the...
procedure TfrmMain.Memo1Click(Sender: TObject); var Line : Integer; begin with (Sender as TMemo) do begin Line := Perform(EM_LINEFROMCHAR,SelStart,0); SelStart :=...
procedure TForm1.Button2Click(Sender: TObject);Const // Le nombre maxi. de tabs MAX_TABS = 4; TAB = #9; var Tabulator : array[0..MAX_TABS] of Integer; begin { Set the Tabulator Widths} ...
TForm1 = class(TForm) ListView1: TListView; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private FListViewWndProc: TWndMethod; procedure ...
A partir de Delphi 5, les fichiers DFM sont stockés en format texte.Pour pouvoir les utiliser en Delphi 2 à Delphi 4, il faut les convertir en format binaire.// Converting from *.DFM to...
unit Unit1;interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,Dialogs,StdCtrls;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure ...
Including Components into a StatusbarThe TStatusbar usually does not allow to place components on itself. Butsometimes it would be very fine to add -for example- a TProgressBar on aStatusbar.This...
procedure TForm1.ListBox1MouseMove(Sender: TObject; Sh if t: TSh if tState; X,Y: Integer); var p:TPoint; begin p.x:=x; p.y:=y; ListBox1.ItemIndex:=ListBox1.ItemAtPos(P,True); end;
procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;State: TDragState; var Accept: Boolean); begin Accept := Sender is TListBox; end; procedure ...
type TForm1 = class(TForm) private { Private-Deklarationen } procedure WMNCPaint( var Mes : TWMNCPaint); message WM_NCPAINT; public { Public-Deklarationen } end; var Form1:...
type TForm1 = class(TForm) private { Private-Deklarationen } FOldHeight : Integer; procedure WMNCRButtonDown( var Msg : TWMNCRButtonDown); message WM_NCRBUTTONDOWN; public {...
procedure ShowContents(Value: Boolean); begin SystemParametersInfo(SPI_SETDRAGFULLWINDOWS, Ord(Value), nil, 0); end; //afficher la fenêtre procedure TForm1.Button1Click(Sender: TObject); begin ...