procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin i:=GetWindowLong(Button1.Handle,GWL_STYLE ); SetWindowLong (Button1.Handle,GWL_STYLE , i or BS_MULTILINE); ...
Placez un bouton sur Form1 puis ajouter le code suivant: procedure TForm1.FormCreate(Sender: TObject); begin setwindowlong(form1.handle,gwl_exstyle,(getwindowlong(form1.handle,gwl_exstyle) or...
type TForm1 = class(TForm) private procedure WM_MOVE( var Msg: TWMMove); message WM_MOVE;{ Private-Deklarationen} public{ Public-Deklarationen} end; var Form1: TForm1;implementation{$R...
Button1.Perform(WM_LButtonDown,0,0);Sleep(250);Button1.Perform(WM_LButtonUp,0,0);
Button1.Hint := 'Line 1'+#13+'Line 2';
implementation{$R *.DFM}Type THintConFont = Class (THintWindow) Constructor Create (AOwner: TComponent); override; end; Constructor THintConFont.Create (AOwner: TComponent); begin Inherited ...
procedure TForm1.FormCreate(Sender: TObject); begin Screen.Cursors[crMyCursor]:=LoadCursorFromFile('c:mystuffmycursor.ani'); Cursor := crMyCursor; end;
begin ChildForm := TChildForm.CreateParented(Form1.Handle); end;
with MyForm do SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
procedure TForm1.FormCreate(Sender:TObject); var region: HRgn; begin region:=CreateEllipticRgn(1,1,200,200); SetWindowRgn(handle, region, true); end;
//Copie d'écran de l'ensemble du bureauProcedure ScreenShot(Bild: TBitMap); var c: TCanvas; r: TRect; begin c:= TCanvas.Create; c.Handle:= GetWindowDC (GetDesktopWindow); try r:=...
procedure TForm1.Button1Click(Sender: TObject); var Rect: TRect; begin Rect.Left := Left; Rect.Top := Top; Rect.Right := Left+Width; Rect.Bottom := Top+Height; ClipCursor(@Rect); end; ...
var a:string; procedure TForm1.FormCreate(Sender: TObject); begin a:='Look at here !...'; end; procedure TForm1.Timer1Timer(Sender: TObject); var i:integer; begin ...
{valeurs possibles:- IDI_APPLICATION- IDI_ASTERISK- IDI_EXCLAMATION- IDI_HAND- IDI_QUESTION}//Icons procedure TForm1.Button1Click(Sender: TObject); var icon:TIcon; begin Icon:=TIcon.Create; ...
controle précédent :SendMessage(Form1.Handle, WM_NEXTDLGCTL, 0, 0);controle suivantSendMessage(Handle, WM_NEXTDLGCTL, 1, 0);
méthode n°1implementation{$R *.DFM} procedure fillGradientRect(canvas: tcanvas; Recty: trect; fbcolor, fecolor: tcolor; fcolors: integer); var i, j, h, w, fcolor:...
uses printers; procedure PrintText(text:string); begin with Printer do begin BeginDoc; Canvas.TextOut(5,50,text); EndDoc; end; end;
function Farbtiefe : string; var DesktopDC : HDC; BitsPerPixel : integer; begin DesktopDC := GetDC(0); BitsPerPixel := GetDeviceCaps(DesktopDC, BITSPIXEL); case BitsPerPixel of 4 :...
Function MoveListViewItem(ListView : TListView; ItemFrom, ItemTo : Word) : boolean; var Source, Target : TListItem; begin result := false; listview.items. begin update; try source :=...
procedure TForm1.Button1Click(Sender: TObject); var memory:TMemoryStatus; begin memory.dwLength:=sizeof(memory); GlobalMemoryStatus(memory); ShowMessage('Total RAM / total memory:...