popup menü bei label klick!

[the_beginner]

guten abend DP visitors

ich habe folgendes problem und weiß nicht wie ich es lösen kann, bzw vielleicht gibt es auch nen anderen weg wie man es lösen kann aber ich bin noch nicht drauf gekommen.

also: ich erstelle in meinem programm labels während der laufzeit. nun möchte ich aber auch, dass der name, bzw die position jedes labels in einem extra popup fenster angezeigt werden sollen wenn man über das label mit der maus geht oder auf das label klickt.

nun meine frage(n): geht dass mit popup menüs? wenn ja, wie füge ich dem popup menü während der laufzeit komponenten hinzu? wenn nein, wie könnte ich es anders machen?

Dankö für eure hilfe
the_beginner

[The-X]

meinst du vielleicht "hints" ?

Delphi-Quellcode:

MyLabel:=Tlabel.Create(nil);
With MyLabel do begin
  Name:='blubb';
  Top:=0;
  left:=0;
  Caption:='keineahnung';
  Hint:='wasweissich'; // der text vom "popup"
  ShowHint:=true; // ^^ text anzeigen
  ParentShowHint:=false; ^^ nicht den Text von der form anzeigen (wenn vorhanden)
  // OOOOOoder :P
  PopupMenu:=MyPopupMenu; // <= das wäre dann ein zugeordnetes Menü, welches (ja nach einstellung bei links bzw. rechtsclick auf dem label kommt
end;

[Matze]

EIn Popup-menü öffnet sich normalerweise nur, wenn man einen Rechtsklick auf das Label tätigt.

Label.PopupMenu := PopupMenu1; Das geht natürlich auch dynamisch mittels findcomponent oder direkt beim Erstellen des Labels, wo du auch die Popup-menüs dynamisch erstellst:

Delphi-Quellcode:

var
  MyPopup: TPopupMenu;

...

procedure TForm1.Button1Click(Sender: TObject);
begin
  MyPopup := TPopupMenu.Create(Label1);
  MyPopup.Name := 'wasweissich';

  ...

  Label1.PopupMenu := MyPopup;
end;

Wie man das dynamisch macht, steht in der DP, einfach mal suchen.


Nachtrag: Ich dachte auch erst, er meint Hints, aber war mir auch nicht sicher.

[Nicodius]

Delphi-Quellcode:

    procedure MyPopOnClick(Sender : TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var MyItem : TMenuItem;
begin
  MyItem := TMenuItem.Create(Popupmenu1);
  MyItem.Caption := 'Test';
  MyItem.OnClick := MyPopOnClick;
  Popupmenu1.Items.Add(MyItem);
end;

procedure TForm1.MyPopOnClick(Sender: TObject);
begin
 Showmessage('Hallo');
end;

ddas sollte dir helfen

so kannst du beliebig viele hinzufügen!


---> das OnClick wird durch das procedure TForm1.MyPopOnClick(Sender: TObject); bestimmt!



hättest du n bisschen in der CodeLib gestöbert .. ich hab so was ähnliches mit Stringlisten schonmal getutort

[the_beginner]

also wenn ihr mir sagen könnt, ob man hints 2 zeilig bzw mehrzeilig darstellen kann, dann währe das escht super geil! dann brauche ich dieses popup menü nicht mehr!

[The-X]

mylabel.hint:='1.Zeile'+#13#10+'2.Zeile'; Waren's also doch Hints

[Ultimator]

Button1.Hint:='Erste Zeile'+#10#13+'Zweite Zeile'; Etwa so

[the_beginner]

vielen dank leutz,

also auf hints bin ich nicht gekommen! ich habe direkt an das kompliziertere gedacht!

danke noch mals für eure hilfe!
the_beginner

[the_beginner]

aber eine frage hätte ich da noch?

#13 = Enter Taste und was ist #10?

[The-X]

Und bevor es hier jemand vergisst...

Herzlich Wilkommen in der DP



#13 = Enter = Carriage Return
#10 = LineFeed = Zeilenvorschub (noch aus den DOS-Zeiten für Drucker-Steuerzeichen)

und merk dir schonmal für später ... neue Frage, neuer Thread (Fräd)