Also, in der OnClick der 4 Buttons:
Delphi-Quellcode:
procedure ButtonClick(Sender: ....);
begin
SpezButton.Tag := Sender.Tag;
end;
Die Tags der Buttons musst du natürlich unterschiedlich setzen. Außerdem bekommen alle 4 Buttons dieselbe OnClick-Routine
Dann der Spezialbutton:
Delphi-Quellcode:
procedure SpezButtonClick(Sender: ....);
begin
case SpezButton.Tag of
0: //So dann alles machen
end;
SpezButton.Tag := -1;
end;
Das Tag des Spezialbuttons wird im Objektinspektor mit -1 initialisiert, so nützt ein Klick auf diesen Button nichts, außer wenn ein anderer Button angeklickt wurde.
Greetz
alcaeus