Jak zrobic żeby za każym razem po nacisnieciu tego samego buttona ,była wykonywana inna akcja??
0
0
Na początku pod Button1.OnClick ustawiasz Button1Click (w Object Inspector).
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Akcja #1');
Button1.OnClick := Button1Click2;
end;
procedure TForm1.Button1Click2(Sender: TObject);
begin
ShowMessage('Akcja #2');
Button1.OnClick := Button1Click;
end;
0
Musisz skorzystac z If lub Case.
Np:
If akcja=1 then begin Procedura_1; akcja:=2; end;
if akcja=2 then begin procedura_2; akcja:=1; end;
itp.
0
Oba sposoby są dobre. Tylko jeden i drugi ma swoje zalety i wady. Co do drugiego to raczej użyłbym zamiast ifów case'a.