Code: Alles auswählen
form.create...
begin
MEntry:=Tstatictext.Create(nil);
Mentry.OnClick:=@MenuEntryClick;
MEntry.Parent:=SideMenu_Panel;
Code: Alles auswählen
form.FormPaint.....
begin
MEntry:=Tstatictext.Create(nil);
Mentry.OnClick:=@MenuEntryClick;
MEntry.Parent:=SideMenu_Panel;
onClick macht was es soll.
der zweite code funktioniert nicht.
onClick wird nicht ausgeführt (visuell ist ein click vorhanden)
problem nur unter linux, unter windows funktioniert es.