Salut
Deux Fiches et deux boutons sur Form 1
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
If
Form2.Showing then showmessage('oki');
end;
Et la c'est magique

.
Pssss: Un autre truc super extraordinaire : la touche F1
