Ajouter un control sur une autre fenêtre

Question

Bonjour.
Voici mon probl&#232;me.
J'ai cr&#233;er un button grace a CreateWindow, mais sur une fenetre d'une autre application.
Et je voudrai savoir comment lui assigner une fonction (un onclick quoi).
En r&#233;alit&#233; le veux qu'il ouvre un popup menu (un peu comme le menu demarrer).

Merci de votre aide.

WhiteHippo · Answer

Le fait d'utiliser Createwindow, tu ne peux plus utiliser les propri&#233;t&#233;s et m&#233;thodes des objets Delphi.
 
Un exemple simple avec 2 fiches r&#233;alis&#233;s en moins de 3 min.

dans la premi&#232;re fiche :

interface

type
  TForm1 =  class(TForm)
    Button1: TButton;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { D&#233;clarations priv&#233;es }
  public
    { D&#233;clarations publiques }
  end;


var
  Form1: TForm1;


 implementation 


{$R *.dfm}


uses Unit2 ; // unit&#233; de la seconde fiche



procedure TForm1.FormShow(Sender: TObject);
begin
  Form2.Show ;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
  b : tbutton ;
begin
  b : = tbutton.Create( Form2 ) ; 
  if (b<>NIL) then
  begin
    b.Parent := Form2 ;
    b.Left := 100 ;
    b.Top := 100 ;
    b.caption := 'button2' ;
    b.OnClick := Form2.OnClick ;
  end ;


end;

dans la seconde fiche :

interface

type
  TForm2 = class(TForm)
  private
    { D&#233;clarations priv&#233;es }
  public
    { D&#233;clarations publiques }
    procedure OnClick ( sender : tobject ) ;
  end;


var
  Form2: TForm2;


implementation


{$R *.dfm}


{ TForm2 }


procedure TForm2.OnClick(sender: tobject);
begin
  Messagedlg('OnClick OK',mtInformation,[mbYes],0);
  // code de cr&#233;ation et/ou d'ouverture du popup menu ici
end;

Dans ton cas, si tu utilise CreateWindow, il va falloir &#233;crire une proc&#233;dure WindowProc pour intercepter et g&#233;rer les messages associ&#233;s &#224; ton bouton; bref retour aux fonctions windows.

Cordialement.

ZeWaren · Answer

Le bouton &#224; d&#233;ja &#233;t&#233; cr&#233;&#233; grace aux API windows, avec un truc du
style createwindow('BUTTON', .....
Mon probleme est justement de cr&#233;er une windowproc pour ce bouton. 
Mais comme il est situ&#233; dans une autre application, je ne voit pas comment faire.

Je me vois pas mal utiliser un TForm2.OnClick sur une form d'une autre application, qui ci &#231;a se trouve n'est m&#234;me pas faite en delphi!

retaks666 · Answer

cherche dans les hook d'application, tu doit pouvoir hooker le button
en question, et triater le message WM_CLICK, mais je suis pas tr&#232;s cal&#233;
la dessus.

Ajouter un control sur une autre fenêtre

3 réponses

Votre réponse

Discussions similaires