Entwickler-Ecke
Sonstiges (Delphi) - Popupmenu ganzwo anderst
dude - Fr 21.03.03 13:18
Titel: Popupmenu ganzwo anderst
Hi alle,
ich hab ja nun ein eigenes ProgrammIcon in meiner Task-Leiste (neben System-Zeit). Und ich habe ein popupmenu1 , das ich nun bei rechter mausklicktaste dort unten auf dem Icon öffnet !!
Der Code ist bis jetztso:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
| procedure TForm1.WMTASKBAREVENT(var message: TMessage);
begin
case message.LParamLo of
WM_LBUTTONDOWN : BEGIN
Form1.Show;
TaskBarRemoveIcon;
end;
WM_LBUTTONDBLCLK : begin
Form1.Show;
TaskBarRemoveIcon;
end;
end;
end; |
Vielen Dank schon mal im Vorraus
MFG
Delete - Fr 21.03.03 13:32
Titel: Re: Popupmenu ganzwo anderst
| dude hat folgendes geschrieben: |
| Vielen Dank schon mal im Vorraus |
Keine Ursache, gern geschehen. Nur könntest du mal sagen für was? :shock:
Delete - Fr 21.03.03 13:46
Für´s Lesen? :?
dude - Fr 21.03.03 14:48
tz, natürlich fürs weiterhlefen, für was denn sonst !
Pyr0cracker - Fr 21.03.03 14:55
wie wärs wenn du eine frage formulieren würdest:
= fragewort + das, worauf man eine antwort erhalten möchte + das zeichen :?: , welches angibt das der diesem zeichen vorgestellte satz eine frage ist.
Popov - Fr 21.03.03 14:56
Spaß muß sein. Allerdings solltest du das nächste mal auch eine Frage stellen. Hast du glück, daß ich so gut im raten bin:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| var
p : TPoint;
begin
...
GetCursorPos(p);
PopupMenu1.Popup(p.x, p.y);
...
end; |
GetCursorPos ermitelt global die Position deines Cursorss zum Zeitpunkt X und schreibt es in p.
PopupMenu1.Popup(p.x, p.y) öffnet das PupupMenü an der Stelle p.x/p.y.
dude - Fr 21.03.03 15:32
danke poppov, mein lebensretter !
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!