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 2518 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 1557 fois commentaire 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 1869 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 1952 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 2180 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 1192 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 1518 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 1441 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 1587 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 1303 fois Communauté Delphi
Navigation
    Recevoir la newsletter
    Pour s'inscrire à notre newsletter, veuillez indiquer votre adresse email ci-dessous:

    Newsletter déjà parues