jbanety
Messages postés30Date d'inscriptionmardi 24 décembre 2002StatutMembreDernière intervention30 juin 2011
-
17 juin 2003 à 07:41
Jean44
Messages postés26Date d'inscriptionmardi 25 février 2003StatutMembreDernière intervention27 juin 2003
-
17 juin 2003 à 11:50
salut je m'arrive pas à trouver une procedure ou une fonction pour placer un élément s au milieu d'une form.
Si kkun peut m'aider ?
Merci.
Jean44
Messages postés26Date d'inscriptionmardi 25 février 2003StatutMembreDernière intervention27 juin 2003 17 juin 2003 à 11:50
Salut,
Tu peux essayer cette procédure, ça devrait marcher pas trop mal je pense.
Procedure MaForm.PlaceAuMilieu( Sender : TObject; var aCtrl : TControl);
Var
L : Integer;
T : Integer;
Begin
L := (aCtrl.Width Div 2) - (MaForm.Width Div 2);
T := (aCtrl.Height Div 2) - (MaForm.Height Div 2);
aCtrl.Top := T;
aCtrl.Left := L;
End;