Trucs et astuces Delphi - page 2

Avec Delphi, rien n'est impossible ! Telle a été notre devise pendant des années. A la fois EDI et langage de développement (Pascal), l'outil Delphi facilite grandement la création d'applications. A l'origine, Delphi est un langage compilé qui s'execute sur des plateformes 32 bits. Depuis l'editeur a apporté de nouvelles fonctionnalités qui ne sont pas traitées sur Fobec.com.

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 Guestbook...
delphi/truc-astuce/internet/
le 25/01/2009
vu 853 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/truc-astuce/graphisme/
le 06/11/2008
vu 2800 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/truc-astuce/autre-categorie/
le 06/11/2008
vu 753 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/truc-astuce/objet/
le 18/10/2008
vu 1276 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/truc-astuce/surface/
le 11/07/2008
vu 1824 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/truc-astuce/base-donnee/
le 29/05/2008
vu 670 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/truc-astuce/surface/
le 27/11/2007
vu 2788 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/truc-astuce/internet/
le 28/08/2007
vu 2280 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/truc-astuce/graphisme/
le 27/08/2007
vu 3261 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); Label2.Caption:='y-Auflösung:...
delphi/truc-astuce/graphisme/
le 11/04/2007
vu 3109 fois
SwissDelphiCenter

Script Delphi

Espace membre
Catégorie
Résumé de la rubrique
Contenu
528 articles
Rédaction
3 auteurs
Mise a jour
28/04/2009
Partager sur les réseau sociaux
Articles au hasard