|
Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: PopupMenu mit <100 Einträgen darstellen
20. Dez 2012, 14:14
Du kannst die dazustellende Größe in Pixeln festlegen, hierbei enstehen dann Scrollbuttons wenn nötig.
Delphi-Quellcode:
procedure TForm4.PopupMenu1Popup(Sender: TObject);
var
mi: tagMENUINFO;
begin
mi.cbSize := SizeOf(mi);
mi.fMask := MIM_MAXHEIGHT;
mi.cyMax := 150;
SetMenuInfo(popupmenu1.Handle, mi)
end;
 MENUINFO structure
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
|