Popupmenu ganzwo anderst

dude · Beiträge: 48

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:

markieren

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

Ehemaliges Mitglied Erhaltene Danke: 1

dude hat folgendes geschrieben:

Vielen Dank schon mal im Vorraus

Keine Ursache, gern geschehen. Nur könntest du mal sagen für was? :shock:

Ehemaliges Mitglied Erhaltene Danke: 1

Für´s Lesen?

dude · Beiträge: 48

tz, natürlich fürs weiterhlefen, für was denn sonst !

Pyr0cracker · Verfasst: 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 · Verfasst: 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:

markieren

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.

_________________
Popov

dude · Beiträge: 48

danke poppov, mein lebensretter !

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme