AW: button mit neuen Funktionen
10. Sep 2013, 17:34
Zähl doch Button.Tag hoch...
Beispiel:
Delphi-Quellcode:
procedure TForm1.btnZoomClick(Sender: TObject);
begin
btnZoom.Tag:= btnZoom.Tag +1; if btnZoom.Tag=4 then btnZoom.Tag:=1;
if btnZoom.Tag=1 then...
.
.
.
Geändert von hathor (10. Sep 2013 um 17:39 Uhr)
|