Connaitre la taille des éléments d'un Mainmenu

//ajouter un TMainMenu et un TMemo à la fiche

procedure TForm1.Button1Click(Sender: TObject);
var
r: TRect;
i: Integer;
begin
for i := 0 to mainmenu1.Items.Count - 1 do
begin
Win32Check(GetMenuItemrect(handle, mainmenu1.handle, i, r));
memo1.lines.add(format('Item %d: (%d, %d), (%d, %d)', [i, r.left, r.top, r.right,
r.bottom]));
end;
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour03/04/2005
VisualisationVu 1236 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Autre categorie
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur