Trucs et astuces Delphi - page 4

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.

Synchroniser le défilement de 2 TRichedit

//... private PRichEdWndProc, POldWndProc: Pointer; procedure RichEdWndProc( var Msg: TMessage);//... procedure TForm1.FormCreate(Sender: TObject); begin PRichEdWndProc :=...
delphi/truc-astuce/autre-categorie/
le 16/12/2005
vu 1245 fois
Bruno

Copier le contenu d'un WebBrowser vers un Bitmap

var ShellDocObjectView: HWND; InternetExplorerServer: HWND; WebCanvas: TCanvas; begin ShellDocObjectView := FindWindowEx(WebBrowser1.Handle, 0, 'Shell DocObject View', nil); ...
delphi/truc-astuce/internet/
le 20/11/2005
vu 1587 fois
Communauté Delphi

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/truc-astuce/surface/
le 10/10/2005
vu 2363 fois
SwissDelphiCenter

Ajouter une fenetre dans un TOpenDialog

unit DiExtDlgs; {$R-,H+,X+} interface uses Messages, Windows, SysUtils, Classes, Controls, StdCtrls, Graphics, ExtCtrls, Buttons, Dialogs, OleCtrls, SHDocVw; type { TDiOpenPictureDialog } ...
delphi/truc-astuce/systeme/
le 20/09/2005
vu 1493 fois
Nicholas Crosby

Retrouver un TTreenode d'après son texte dans un Treeview

function FindTreeText(Tree: TTreeview; AText: string): TTreeNode; var iLoop: integer; begin result := nil; if not Assigned(Tree) then exit; if Tree.Items.Count > 0 then for...
delphi/truc-astuce/objet/
le 22/05/2005
vu 1607 fois
Communauté Delphi

Crypter/decrypter un String pour un fichier ini

{dans un fichier ini, il faut éviter les caractères tels que #0,' ','=',[',']' sous peine d'avoir une erreur. 2 solutions :- soit on crypte le string suivant une table de caractères autorisés-...
delphi/truc-astuce/autre-categorie/
le 16/05/2005
vu 2931 fois
Communauté Delphi

Charger/Enregistrer un Treeview dans un ini

procedure TreeToIni(Tree: TTreeView; INI: TIniFile; Section: string); var n: Integer; MS: TMemoryStream; tTv: TStringList; Msg: string; begin tTv := TStringList.Create; MS :=...
delphi/truc-astuce/objet/
le 02/05/2005
vu 1687 fois
Michael Fritzsche

Lancer un fichier et attendre sa fermeture

{ce truc permet de lancer une application mais aussi d'ouvrir automatiquement l'application associée à un raccourci} uses Shellapi; function StartAssociatedExe(FileName: string; var ErrorCode:...
delphi/truc-astuce/systeme/
le 27/04/2005
vu 1275 fois
SwissDelphiCenter

Retrouver la dernière occurence dans un string

function LastPos(SubStr, S: string): Integer; var Found, Len, Pos: integer; begin Pos := Length(S); Len := Length(SubStr); Found := 0; while (Pos > 0) and (Found = 0) do begin if ...
delphi/truc-astuce/autre-categorie/
le 27/04/2005
vu 1282 fois
Marc Dürst

Editer une page HTML (WYSIWYG HTML)

//Ouvrir une page dans le TWebBrowser WB1 procedure TForm1.Button1Click(Sender: TObject); begin WB1.Navigate('www.fobec.com'); end; //Passer le TWebbrowser en mode édition procedure ...
delphi/truc-astuce/internet/
le 20/04/2005
vu 2134 fois
Communauté Delphi

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