Exemples pour coder avec Delphi Trucs et astuces Surface

Imprimer au millimètre près

uses printers; procedure TForm1.Button1Click(Sender: TObject); begin printer.BeginDoc; SetMapMode(printer.Canvas.Handle, MM_LOMETRIC); with printer.Canvas do begin //font hauteur 5 mm ...
Delphi - Trucs et astuces - Surface le 11/07/2008 vu 2142 fois SwissDelphiCenter

Déplacer des controles en execution sur Tform

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton; Sh if t: TSh if tState; X, Y: Integer); begin ReleaseCapture;Panel1.Perform(WM_SYSCOMMAND,...
Delphi - Trucs et astuces - Surface le 27/11/2007 vu 3061 fois SwissDelphiCenter

Connaitre la numéro de ligne/colonne dans un TRichEdit

function RichRow(m:TRichedit) : LongInt; begin Result:=SendMessage(m.Handle,EM_LINEFROMCHAR,m.SelStart,0); end; function RichCol(m:TRichedit) : LongInt; begin ...
Delphi - Trucs et astuces - Surface le 10/10/2005 vu 2654 fois SwissDelphiCenter

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 1714 fois P. Below

Rendre un TForm transparent en utilisant les Region

private { Private declarations } FullRgn, ClientRgn, CtlRgn : THandle; procedure MakeTransparent; procedure UndoTransparent; end; {...}implementation{...} procedure ...
Delphi - Trucs et astuces - Surface le 19/11/2004 vu 1325 fois Mohammad Khorsandy

Afficher une Form en plein écran

{Comme dans un jeu, affiche la form en plein écran et rendre les touches système inaccessibles} procedure TForm1.FormCreate(Sender: TObject); var HTaskbar: HWND; OldVal: LongInt; begin try ...
Delphi - Trucs et astuces - Surface le 31/10/2004 vu 2572 fois SwissDelphiCenter

Connaitre le nombre de ligne visible dans un TMemo

Pour dénombrer les lignes visibles d'un TMEMO:================================= function LineasVisibles(Memo: TMemo): integer; Var Oldfont : HFont; {the old font} DC :...
Delphi - Trucs et astuces - Surface le 25/09/2004 vu 2093 fois Alain962 - nzn.fr

Simuler la touche TAB en appuyant sur touche ENTER

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then begin Key := #0; { check if SHIFT - Key is pressed } if GetKeyState(VK_Sh if t) and...
Delphi - Trucs et astuces - Surface le 12/09/2004 vu 1608 fois Communauté Delphi

Afficher un Bitmap de fond dans les Hint

//enregistrer un fichier bmp sous 'D:hint.bmp'type TGraphicHintWindow = class(THintWindow) const ructor Create(AOwner: TComponent); override; private FActivating: Boolean; public ...
Delphi - Trucs et astuces - Surface le 12/09/2004 vu 1924 fois Communauté Delphi

Empêcher un TControl de se rafraichir/redessiner

procedure LockControl(c: TWinControl; bLock: Boolean); begin if (c = nil) or (c.Handle = 0) then Exit; if bLock then SendMessage(c.Handle, WM_SETREDRAW, 0, 0) else begin ...
Delphi - Trucs et astuces - Surface le 12/09/2004 vu 1758 fois P. Below
  • 43 articles - Page
  • 1
  • 2
  • 3
  • 4
  • 5
Navigation
    Recevoir la newsletter
    Pour s'inscrire à notre newsletter, veuillez indiquer votre adresse email ci-dessous:

    Newsletter déjà parues