Button statt Radio Button?

[Jens Hartmann]

Nur so frei getippt,

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Zeichen := 1;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  Zeichen := 2;
end;

..
case Zeichen of
0:begin
    //tue nix oder so
  end
1:begin
    Freihand //oder wie auch immer
  end
2:begin
    Polyline //oder was weiß ich
  end;

...

MFG Jens