Exemples pour coder avec Delphi Trucs et astuces Objet
Combobox - StringGrid : supprimer la couleur de focalisation |
||||
Pour un ComboBox :propriété style : csOwnerDrawFixed procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); begin // Supprimer couleur... | ||||
| Delphi - Trucs et astuces - Objet | le 27/03/2009 | vu 2234 fois | olibul | |
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 1273 fois  |
SwissDelphiCenter | |
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 - Trucs et astuces - Objet | le 22/05/2005 | vu 1603 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 - Trucs et astuces - Objet | le 02/05/2005 | vu 1683 fois | Michael Fritzsche | |
Trier un TStringgrid |
||||
procedure SortStringGrid( var GenStrGrid: TStringGrid; ThatCol: integer); const TheSeparator = '@'; var CountItem, I, J, K, ThePosition: integer; MyList: TStringList; MyString,... | ||||
| Delphi - Trucs et astuces - Objet | le 16/02/2005 | vu 1914 fois | SwissDelphiCenter | |
Detecter l'existance des ScollBar |
||||
procedure TForm1.Button1Click(Sender: TObject);//Detecter l'existance des ScollBar par exemple sur un memo var WinStyle: HWND; begin //Récupérer des informations sur TControl dans la var... | ||||
| Delphi - Trucs et astuces - Objet | le 15/02/2005 | vu 943 fois | Communauté Delphi | |
Déplacer le curseur du memo en fonction de la position de la souris |
||||
procedure TForm1.Memo1MouseMove(Sender: TObject; Sh if t: TSh if tState; X, Y: Integer); begin Memo1.SelStart := LoWord(SendMessage(Memo1.Handle, EM_CHARFROMPOS, 0, MakeLParam(X, Y))); ... | ||||
| Delphi - Trucs et astuces - Objet | le 11/02/2005 | vu 1259 fois | Rainer Kümmerle | |
Intercepter couper/copier/coller dans un TEdit |
||||
unit MyEdit;interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, stdctrls, clipbrd;type TPreventNot if yEvent = procedure (Sender: TObject; Text: string; var... | ||||
| Delphi - Trucs et astuces - Objet | le 02/02/2005 | vu 1189 fois | SwissDelphiCenter | |
Mettre des lignes en couleur dans un TRichedit |
||||
{ 1. Exemple: Ajouter une ligne en couleur dans un TRichedit} procedure AddColoredLine(ARichEdit: TRichEdit; AText: string; AColor: TColor); begin with ARichEdit do begin SelStart :=... | ||||
| Delphi - Trucs et astuces - Objet | le 24/01/2005 | vu 1307 fois | SwissDelphiCenter | |
Ajouter les evenements MouseEnter & MouseLeave sur vos composants |
||||
unit ImageEx;interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;type TImageEx = class (TImage) private { Private declarations } ... | ||||
| Delphi - Trucs et astuces - Objet | le 10/12/2004 | vu 1046 fois | Communauté Delphi | |