Inscription
12 avril 2008
Dernière intervention
15 mars 2010
Interventions
6
Signature

Nouveau composant TImage et TLabel

Salut a tout le monde , J'explique au mieux mon soucis , j'ai creer un nouveau composant derive de TImage,et j'ai besoin d'un TLabel dans le nouveau composant , donc j'ai creer une variable: VLabelMichel : TLabel; une procedure SetLabelMichel(Value : TLabel); et une property LabelMichel : TLabel Read VLabelMichel Write SetLabelMichel;... Lire la suite

Récupérer le texte d'un Edit avec l'handle.. [Résolu]

Bonjour a tous, J'aimerais savoir comment récupérer le texte d'un Edit d'une autre application? donc j'ai une fonction que j'ai modifier mais je pense qu'il est pas bon donc si vous pourriez donner votre avis sur la fonction sa serais bien .. function GetEditText(const AppClass, EditClass: string; EditIndex: Integer; out Text: st... Lire la suite

attendre réponse d'une autre form [Résolu]

Bonjour, Quelqu'un à-t-il une idée pour un code du genre procedure machin(); begin if truc then begin form2.onshow; wait click button ok sur form form2.close; insturction suivate end; end; Je m'explique: Je voudrais que cette procédure ouvre une autre form et attende que l'utilisateur clique sur un boutton pour fermer l... Lire la suite

RightStr

Bonjour j'ai une procédure son implémentation est comme suit: procedure TGestCAB.CodeRecu(Sender: TObject; returnPacket : string);  var   Code : String;   numLecteur : integer; begin   numLecteur := -1;     if LeftStr(returnPacket, 2)='/*' then // message avertissement, on ignore       exit;     // on récupèr... Lire la suite