Registriert seit: 28. Apr 2008
1.717 Beiträge
FreePascal / Lazarus
|
AW: Wie kein PopupMenu zuweisen?
22. Aug 2012, 14:53
Thx, hab das jetzt!
Delphi-Quellcode:
procedure TForm1.Label3ContextPopup(Sender: TObject; MousePos: TPoint;
var Handled: Boolean);
begin
if Label3.Caption <> '' then Label3.PopupMenu := PopupMenu1
else Label3.PopupMenu := nil;
end;
Bin Hobbyprogrammierer! Meine Fragen beziehen sich meistens auf Lazarus!
|