Wie kein PopupMenu zuweisen?

[AlexII]

Hallo,

hab da ein Problemchen wo ich nicht weiter kommen. Und zwar ich weise während der Laufzeit einer Komponente wie folgt ein PopupMenu zu:

Delphi-Quellcode:

procedure TForm1.Label3ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
if Label3.Caption <> '' then Label3.PopupMenu := PopupMenu1
else Label3.PopupMenu := ??? (hier also kein Menü zuweisen)
end;

Nun wenn Label3 kein Text bzw. Caption hat, soll auch kein Menü erscheinen, aber ich bekomme das aber irgendwie nicht hin.

Danke!

[himitsu]

Nichts = nil

Du solltest aber eher Handled auf False setzen, wenn du kein Popup sehn willst.

Oder du setzt Handled immer auf False, und zeigst das Popup "manuell" an, wenn du es sehn willst. (PopupMenu.Popup(X, Y); )


Oder ins OnPopup des Menüs

Delphi-Quellcode:

if Label3.Caption = '' then
  Abort;

OnPopup des Popup-Menüs wird aufgerufen, nachdem in Popup des Komponente nachgesehn wurde, ob und welches Popup angezeigt werden soll.

[s.h.a.r.k]

Allgemein kannst es mit folgendes Zuweisung wieder entfernen: XYZ.PopupMenu := nil;

[Steku]

Hi,

oder Quick'n Dirty ein leeres PopUp Menue zuweißen...?

Gruß
Steku

[ulilüding]

Wie ist's denn mit Label3 beim Programmstart? Hat das ein PopupMenu, oder erstmal nicht? Im letzeren Falle erübrigt sich einfach der Teil ab dem "else" (oder die Variante von himitsu). Wenn ein PopupMenu existiert und das im Falle von Label3.Caption='' wieder gelöscht werden soll, so hilft möglicherweise: Label3PopupMenu:=nil;
LGU

[AlexII]

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;

[himitsu]

Wie gesagt

Delphi-Quellcode:

procedure TForm1.Label3ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
begin
  Handled := Label3.Caption = '';
end;

Handled = ICH (der Programmierer in dieser Methode) hab das Event verarbeitet (oder auch nicht, aer egal) und Delphi soll das jetzt nicht weiter verfolgen, also kein Popup aufmachen.