Ĺadny brzuch
Jak w temacie ;) ??
Jak w temacie ;) ??
przechowuj w tagu obecna wartosc - jesli tag = 0 to ustaw na 1 i tekst na 'stop', a jesli tag= 1 to odwrotnie :)
Czyli dokladnie jak to zrobic, bo za bardzo to nie wiem :(
Czyli dokladnie jak to zrobic, bo za bardzo to nie wiem :(
Wydaje mi się, że jednak będzie prościej z Tag, porównywanie tekstu jest mało profesjonalne (a co, jeśli będą różne wersje językowe?):
procedure TForm1.Button1Click(Sender: TObject); begin Button1.Tag := Abs(Button1.Tag - 1); if Button1.Tag = 1 then Button1.Caption := 'Start' else Button1.Caption := 'Stop'; end;
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Jak w temacie ;) ??
przechowuj w tagu obecna wartosc - jesli tag = 0 to ustaw na 1 i tekst na 'stop', a jesli tag= 1 to odwrotnie :)
Czyli dokladnie jak to zrobic, bo za bardzo to nie wiem :(
Czyli dokladnie jak to zrobic, bo za bardzo to nie wiem :(
Wydaje mi się, że jednak będzie prościej z Tag, porównywanie tekstu jest mało profesjonalne (a co, jeśli będą różne wersje językowe?):
procedure TForm1.Button1Click(Sender: TObject); begin Button1.Tag := Abs(Button1.Tag - 1); if Button1.Tag = 1 then Button1.Caption := 'Start' else Button1.Caption := 'Stop'; end;