>> boton 1 = toolbutton20
>> boton 2 = toolbutton16
--------------------------------------------------------------------
procedure Tprincipal.ToolButton20Click(Sender: TObject);
begin
toolbutton16.Visible:=true;
toolbutton20.Visible:=false;
principal.BorderStyle:=bsnone;
end;
procedure Tprincipal.ToolButton16Click(Sender: TObject);
begin
principal.BorderStyle:=bssizeable;
toolbutton16.Visible:=false;
toolbutton20.Visible:=true;
end;
--------------------------------------------------------------------
http://img149.imagevenue.com/img.php..._123_635lo.jpg
Me aparece este error:
[Warning] Unit1.pas(8): Unit 'ShellCtrls' is specific to a platform
[Warning] Unit1.pas(8): Unit 'Outline' is deprecated