farbige popups

whitef · Beiträge: 202 Erhaltene Danke: 1 Windows X Delphi XE X

hi,
hab da mal wieder ne kleine frage:

wie kann ich popups einfärben?
standard popups sind ja gewöhnlicherweise grau, mit schwarzer schrift und blauem mouseover effekt.
ich wollte aba gerne das mein popup einen schwarzen hintergrund hat und die schrift weiss ist, der mousover sollte dann grau sein.
Am besten ist es, wenn ich ales hintergrund ein bild nehmen könnte!

ich habe schon nach diversen komponenten ausschau gehalten, aber nirgends was gefunden.

Könnt ihr mir helfen?

Coder · Beiträge: 1383 Erhaltene Danke: 1 WinXP D2005 PE

Im Event OnDrawItem oder OnAdvancedDrawItem eines PopupItems müsstest du das Item selbst mit Canvas zeichnen können.
Einfacher:
Mach dir doch eine Form, welche beim Rechtsklick an der Mausposition aufpoppt.

whitef · Beiträge: 202 Erhaltene Danke: 1 Windows X Delphi XE X

oh man des is doch auch *mist*e, hab gar kein plan wie das mit canvas geht und mit ner neuen form, find ich keinen OnMouseExit oder ähnliches damit das popup zu geht, wenn man doch nichts auswählt.
Des Weiteren weiss ich auch gar nicht wie man das dann genau an dieser position anzeigen lassen kann...

Das funktioniert auf jeden fall net mehr:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

var

  P: TPoint;

begin

  P := ClientToScreen(Point(Button1.Left + Button1.Width div 1,

                            Button1.Top + Button1.Height div 1));

  PopupMenu1.Popup(P.X, P.Y);

Moderiert von Gausi: Delphi-Tags hinzugefügt

Coder · Beiträge: 1383 Erhaltene Danke: 1 WinXP D2005 PE

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if button = mbright then
  begin
    Form2.Left := Mouse.CursorPos.X;
    Form2.Top := Mouse.CursorPos.Y;
    Form2.Show;
  end;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  Form2.Hide;
end;

whitef · Beiträge: 202 Erhaltene Danke: 1 Windows X Delphi XE X

Vielen Dank für die sehr informative Informationen!!

Die sind perfekt, funktioniert wunderbar!!!

Aber eins muss ich jetzt noch fragen.
Bei deiner Variante öffnet sich die Form an der Position, an der sich der Cursor befindet, gibt es da auch ne variante, wo sich die Form dann immer an der selber position (beim Button, der die Form öffnet) öffnet.

(ps: das mit dem form.hide hätt ich auch selber drauf kommen.... manchmal.... aiaiai)

mfg

Blackheart666 · Beiträge: 2195 XP D3Prof, D6Pers.

X und Y kannst Du doch selbst bestimmen.

_________________
Blackheart666
Der Irrsinn ist bei Einzelnen etwas Seltenes, - aber bei Gruppen, Parteien, Völkern, Zeiten die Regel. (Friedrich Nietzsche)

Coder · Beiträge: 1383 Erhaltene Danke: 1 WinXP D2005 PE

whitef hat folgendes geschrieben:

Bei deiner Variante öffnet sich die Form an der Position, an der sich der Cursor befindet, gibt es da auch ne variante, wo sich die Form dann immer an der selber position (beim Button, der die Form öffnet) öffnet

so ungefähr

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.Button1Click(Sender: TObject);
var
  p: TPoint;
begin
  p := point(Button1.Left, Button1.Top + Button1.Height);
  p := Form1.ClientToScreen(p);
  Form2.Left := p.X;
  Form2.Top := p.Y;
  Form2.Show;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  Form2.Hide;
end;

ungetestet. hab grad kein delphi

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme