OnMouseDown

chris4874727 · Hält's aus hier Beiträge: 4

Hey, ich bin ein Delphi-Anfänger und bekomme dass mit dem Event OnMouseDown nicht hin:

Ich will farbige "buttons" erstellen und hab mir das so vorgestellt dass ich einfach ein Panel nehme, dieses farbig mache und dann mit dem Event OnMouseDown einfach die Option BevelOuter:=bvLowered; setze und bei MouseUp dann bvRaised! aber ich bekomme das nicht hin, kann mir bitte jemand erklären wie man diese zwei events einfügt? Bitte helft mir! Danke

P.S: Gibt es in Delphi eine Möglichkeit einen Term, wie zB 6 + 5 auf eine Variable zu speichern und diesen dann ausrechnen zu lassen? Also ich mein dass man mit einen editierfeld, in dem dieser term steht, das machen kann: Var a: ???; (...) begin a:=StrTo???(edit1.text);
weil es geht nicht mit real, da gibt der ne fehler meldung wenn 6 + 5 drinsteht

delfiphan · Beiträge: 2684 Erhaltene Danke: 32

Das mit dem OnMouseDown und BevelOuter müsste eigentlich funktionieren.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 TPanel(Sender).BevelOuter := bvLowered;
end;

chris4874727 · Hält's aus hier Beiträge: 4

Hey perfekt, danke!!!!!
Jetzt funktionierts, ich hatte vorher da stehen:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 Panel1.BevelOuter := bvLowered;
end;

deshalb ging es wahrscheinlich nicht

danke, chris

Moderiert von Tino: Delphi-Tags hinzugefügt.

delfiphan · Beiträge: 2684 Erhaltene Danke: 32

Sollte eigentlich keinen Unterschied machen.
Der Vorteil an Sender ist, dass du die Prozedur für mehrere Knöpfe/Panels einsetzen kannst.

Benutzername · Beiträge: 210 Win XP Pro Delphi 7 PE, D2005 Prof. SSL

Zitat:

P.S: Gibt es in Delphi eine Möglichkeit einen Term, wie zB 6 + 5 auf eine Variable zu speichern und diesen dann ausrechnen zu lassen? Also ich mein dass man mit einen editierfeld, in dem dieser term steht, das machen kann: Var a: ???; (...) begin a:=StrTo???(edit1.text);
weil es geht nicht mit real, da gibt der ne fehler meldung wenn 6 + 5 drinsteht

Dazu brauchst du einen Parser (Such mal hier oder in der DP) ;-)