Exemples pour coder avec Delphi Trucs et astuces, page 2
Envoyer un formulaire avec le TWebBrowser |
||||
procedure TForm1.Button1Click(Sender: TObject); var i: Integer; EncodedStr: string; Header: OleVariant; Post: OleVariant; begin EncodedStr := 'name=SwissDelphiCenter.ch&text=Test... | ||||
| Delphi - Trucs et astuces - Internet | le 25/01/2009 | vu 899 fois | SwissDelphiCenter | |
Changer les propriétés de l'affichage |
||||
procedure TForm1.FormCreate(Sender: TObject); var devmode : TDEVMODE; d : INTEGER; litem : TListItem; p : ^TDevmode; begin devmode.dmSize := SizeOf(TDEVMODE); devmode.dmDriverExtra := 0; ... | ||||
| Delphi - Trucs et astuces - Graphisme | le 06/11/2008 | vu 2842 fois | SwissDelphiCenter | |
Binary Time |
||||
Petite horloge avec affichage en binaire avec un fond d'écran en circuit imprimé pour décorer le bureau ( et pourquoi pas apprendre a compter dans cette base ) | ||||
| Delphi - Trucs et astuces - Autre categorie | le 06/11/2008 | vu 796 fois | Mic** | |
Rechercher et marquer du texte dans un Richedit |
||||
function SearchForText_AndSelect(RichEdit: TRichEdit; SearchText: string): boolean; var startpos, position, endpos: integer; begin startpos := 0; with RichEdit do begin endpos... | ||||
| Delphi - Trucs et astuces - Objet | le 18/10/2008 | vu 1319 fois  |
SwissDelphiCenter | |
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 1868 fois | SwissDelphiCenter | |
Un mot de passe qui passe par tous fichiers pradox |
||||
Pour entrer dans un pradox protejer par un mot de passe;voici le mot de passe qui passe par tous :jIGGAe. | ||||
| Delphi - Trucs et astuces - Base de donnees | le 29/05/2008 | vu 711 fois |
anonime | |
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 2828 fois | SwissDelphiCenter | |
Vérifier si le système est connecté à Internet |
||||
Méthode n°1 uses StdCtrls,registry; Function IsConnected : Boolean; var reg : TRegistry; buff : dword; begin reg:= tregistry.Create ; Reg.RootKey:=HKey_local_machine; if ... | ||||
| Delphi - Trucs et astuces - Internet | le 28/08/2007 | vu 2322 fois | SwissDelphiCenter | |
Convertir un TColor en RGB et vice-versa |
||||
procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Color := RGB(58, 110, 165); end; procedure TForm1.Button2Click(Sender: TObject); var Color: Longint; r, g, b: Byte; begin Color... | ||||
| Delphi - Trucs et astuces - Graphisme | le 27/08/2007 | vu 3308 fois |
SwissDelphiCenter | |
Connaitre la résolution de l'écran |
||||
procedure TForm1.Button1Click(Sender: TObject); var x,y: Integer; begin x:=Screen.Width; y:=Screen.Height; Label1.Caption:='x-Auflösung: '+IntToStr(x); ... | ||||
| Delphi - Trucs et astuces - Graphisme | le 11/04/2007 | vu 3154 fois | SwissDelphiCenter | |