Entwickler-Ecke
Sonstiges (Delphi) - Wo finde ich die Deklaration eines Buttons?
BlackPhantom - Di 04.03.03 15:42
Titel: Wo finde ich die Deklaration eines Buttons?
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 - Di 04.03.03 16:01
Hallo,
wo die Deklaration ist, kann ich dir leider auch nicht sagen, aber auf den Button kannst du doch reagieren, wie du willst.
Beispiel:
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; |
DeCodeGuru - Di 04.03.03 16:03
Hi, versuchs mal so:
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; |
BlackPhantom - 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:
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 - Di 04.03.03 18:46
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?
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!