ouvrir une fiche en appuyant sur un boutonRésolu

Question

bonjour a tous,

alors ma question serais de savoir comment ouvrir une"fiche" en appuyant sur un bouton ?

car sincerement je m'en rapel plus  voila je vous remercie d'avance pour vos reponse.

bone journee a tous 

amicalement

f0xi · Accepted Answer

dans ton unité qui doit appeler la fiche :

implementation 

{$R *.dfm}

uses Unit2 {nom de l'unité de la fiche a ouvrir};

procedure TForm1.Button1Click(Sender : TObject); {evenement OnClick du boutton qui ouvre la fiche}
begin
   Unit2.Form2.Show;
end;

ou encore pour des besoins specifique :

Unit2;

interface

uses ... ;

type
  TForm2 = class(TForm)
  ...
  public
     function Execute : boolean;
  end;

implementation
 
function TForm2.Execute : boolean;
begin
   BringToFront;

  { code additionnel ici }
   result :(ShowModal mrOk);
end;

end.

Unit1;

interface

uses ...;

type
  TForm1 = class(TForm)
    Button1 : TButton
  private
    procedure Button1Click(Sender : TObject);
  ...
  end;

implementation

uses Unit2;

procedure TForm1.Button1Click(Sender : TObject);
begin
  if Unit2.Form2.Execute then
  begin
    { on a cliqué sur OK de la fiche 2 }
  end;
end;

end.

fbalien · Answer

si la fiche est déjà créée un petit form.visible := true ou form est le nom de ta form

hackeur13 · Answer

salut et merci de ta reponse mais j'ai pas tres bien compris desoler mais tu peux m'expliquer 

car moi quand je clique par exemple sur le bouton je voudrais qu'il y est un popup ou une fiche qui s'ouvre voila merci quand meme  d'avoir repondu aussi vite 

bonne journee

hackeur13 · Answer

merci beaucoup sa marche nikel tres bonne exemple bonne soiree

Ouvrir une fiche en appuyant sur un bouton

4 réponses

Votre réponse

Discussions similaires