Wo finde ich die Deklaration eines Buttons?

BlackPhantom · Verfasst: Di 04.03.03 15:42

Hi

Ich habe eine MessageBox mit einem Ok_button. Wenn ich das Prog laufen lasse und auf Ok klicke wird die MessageBox geschlossen.
Alles schön und gut aber ich will dem Clickereignis von diesem Button eine andere Anweisung zuordnen, zB das die Hauptform beim clicken auf den OK_Button clgreen wird. Aber ich finde nirgends die Deklaration dieses Buttons im Quelltext.

Ich möchte auch KEINE eigene MsgBox erstellen

Danke
BlackPH

Ex0rzist · Beiträge: 550 Win XP Prof. Mandrake 10.0 D6

Hallo,

wo die Deklaration ist, kann ich dir leider auch nicht sagen, aber auf den Button kannst du doch reagieren, wie du willst.

Beispiel:

markieren

Quelltext

1:
2:
3:
4:
5:

If MessageDlg('Formular grün malen?', mtConfirmation, 
    [mbOk, mbCancel], 0) = mrOk then
begin
 Form1.Color := clGreen; // oder was immer du willst
end;

_________________
If accidentally read, induce vomitting.

DeCodeGuru · Beiträge: 1333 Erhaltene Danke: 1 Arch Linux Eclipse

Hi, versuchs mal so:

markieren

Quelltext

1:
2:
3:
4:
5:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if MessageBox(Application.Handle,'Wellen Sie das Formular grün darstellen lassen?','Solls grün werden?',MB_YESNO) = IDYES then
    Color := clGreen;
end;

_________________
Viele Grüße
Jakob

BlackPhantom · Verfasst: Di 04.03.03 17:56

Hm.....Ist denn der Button1 der Button auf der MessageBox?@DeCodeGuru

Die Idee ist an sich nicht schlecht@Ex0rzist

Hab trotzdem noch ne Frage:
Was wäre wenn ich ne eigene Procedure für diesen Message_ok_Button schreibe zB:

markieren

Quelltext

1:
2:
3:
4:

 Function MessageBox.MB_OkClick (Sender:TObject);
begin
        Hauptform.color:=clgreen;
end;

Ich hab gehört wenn ich für diesen Button ne eigene Procedure schreibe, speichert das Delphi in sich und dann gilt diese Function für alle MsgBoxen.
Ich hab etwas muffensausen um es auszuprobieren. Einfacher wäre es wenn mir jemand sagen könnte wie ich IN diesem MsgBox_Ok_Button Befehle eintragen kann.

Ex0rzist · Beiträge: 550 Win XP Prof. Mandrake 10.0 D6

Wieso willst du die Prozedur überschreiben?

Du kannst doch beliebige Sachen machen, wenn man auf einen Knopf drückt.
Oder stört dich daran etwas?

_________________
If accidentally read, induce vomitting.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme