sendmessage button enable

Version imprimable

10/02/2023, 18h12
tintin62

sendmessage button enable

bonjour
Jai une application extérieur avec un bouton que je désire rendre enable
donc j'ai le handle du bouton
et j'emploi cette commande
sendmessage(handlebouton,WM_ENABLE,0,0)
mais j'arrive encore a cliquer dessus
donc i a t'il une autre commande pour rendre le bouton enabled
merci
10/02/2023, 18h16
Paul TOTH

que donne EnableWindow ?
10/02/2023, 19h55
tintin62

bonsoir
enablewindow peut s'appliquer a un bouton ?

Salut tinitin

ça tombe bien, je suis justement dans les interceptions de message. Le code suivant fonctionne sous Lazarus et donc ça devrait le faire aussi en Delphi
Code:

1 2 3 4 5 6 7 8 9 10 Procedure TForm1.FormActivate(Sender: TObject); begin PostMessage(GetParent(Button1.Handle), WM_COMMAND, MAKEWPARAM(GetDlgCtrlID(Button1.Handle), BN_CLICKED),Button1.Handle); end; procedure TForm1.Button1Click(Sender: TObject); begin showmessage('bouton clic'); end;

11/02/2023, 09h55
tintin62
Bonjour
merci pour votre aide
mais j'arrive déjà a cliquer sur un bouton extérieur mais moi je voudrais le rendre inactif (enable)
j'ai essaye de remplacer BM_CLICK par BM_ENABLE mais rien ne se passe
Code:

1 2 3 4 5 6 7 var hand:thandle; begin hand:=strtoint('$'+essai.Edit1.Text);; sendmessage(hand,BM_CLICK,0,0); end;
11/02/2023, 10h11
Jlmat

Citation:

Envoyé par tintin62

Bonjour
...
j'ai essaye de remplacer BM_CLICK par BM_ENABLE mais rien ne se passe

Oui, excuse moi, je me suis emballé un peu vite.

Malheureusement, cette constante BM_ENABLE n'est pas définie dans l'unité messages.inc de Lazarus, j'essaie de voir s'il y a un autre moyen...

A+
11/02/2023, 10h59
Paul TOTH
Citation:

Envoyé par tintin62

bonsoir
enablewindow peut s'appliquer a un bouton ?

oui
Code:

1 2 3 4 5 procedure TForm1.Button2Click(Sender: TObject); begin EnableWindow(Button1.Handle, False); end;
11/02/2023, 11h24
Jlmat

:) Pourquoi faire compliqué quand on peut faire simple!
intéressante cette fonction EnableWindow
Merci Paul
11/02/2023, 11h35
Paul TOTH

Citation:

Envoyé par Jlmat

:) Pourquoi faire compliqué quand on peut faire simple!
intéressante cette fonction EnableWindow
Merci Paul

il faut malgré tout vérifier que cela fonctionne avec un process externe, ce n'est pas toujours le cas...mais en même temps s'il faut tout tester soit même je crois que je vais arrêter de donner des pistes :aie:
11/02/2023, 15h59
Jlmat

@ Paul

Citation:

mais en même temps s'il faut tout tester soit même je crois que je vais arrêter de donner des pistes

;) ça serait dommage pour des éternels débutants comme moi et d'autres qui ont besoin d'un langage de programmation pour ses recherches (hors université) ...!

Les logiciels étant en continuelle évolution, on a besoin de pistes pour trouver les pratiques stables... Avant, les versions stables étaient money courante... On savait où on en était, mais maintenant, en France en tout cas, on est perdu avec toutes les occurences des moteurs de recherches et le peu de production papier. Moi, un livre bien fait ou une documentation comme du temps de Delphi 7, c'était un vrai plaisir de se former...

Maintenant, ça ressemble plus à une course d'obstacles...

@ Tintin, est-ce que c'est bon pour toi?
A+
11/02/2023, 21h23
tintin62

bonjour
viens de rentrer verrait sa demain si sa marche enablewindows
merci deja a vous tous de nous rendre moins ignare
++
11/02/2023, 21h34
Mat.M

Citation:

Envoyé par tintin62

bonjour
Jai une application extérieur avec un bouton que je désire rendre enable

c'est un peu pointu ce que vous voulez faire il faut faire du "subclassing" avec GetWindowLongPtr et son inverse SetWindowLongPtr.
Comme tout le monde sait bien une fenêtre a sa propre boucle de message et le kernel donc place les messages émis soit par le kernel lui-même soit l'application avec SendMessage.
donc obtenir le Handle de la fenêtre et appeler ces deux API.

Citation:

Envoyé par tintin62

donc j'ai le handle du bouton

il faut préciser de quelle manière est obtenu le Handle.

bonsoir
merci Paul sa marche
pour le recherche handle j'avais trouve sa sur le site je crois
mais je me rappelle plus de qui est ce si il se reconnait qu'il le dit

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  Tessai = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    winHandle: HWND;
    winTitle : string;
  end;
 
var
  essai: Tessai;
 
implementation
 
{$R *.dfm}
 
 var
  s: String;
 
function EnumChildren(hwnd: HWND; lParam: LPARAM): BOOL; stdcall;
var
  ClassName: array[0..259] of Char;
begin
  Result := True;
  GetClassName(hwnd, ClassName, Length(ClassName));
  essai.ListBox1.Items.Add(IntToHex(hwnd,8) + ' ' + ClassName);
end;
 
procedure Tessai.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Clear;
 
  // ---------------------------------
  // 1. try to find main window hwnd:
  // ---------------------------------
  winHandle := FindWindow(nil,pchar('fenetre1'));
  if winHandle =0 then begin
  ListBox1.Items.Add('Error: 1.'); exit; end else
  ListBox1.Items.Add('win: 0x' + IntToHex(winHandle,8));
 
  // ---------------------------------
  // 2. try to find window title:
  // ---------------------------------
  SetLength(winTitle, GetWindowTextLength(winHandle));
  GetWindowText(winHandle, PChar(winTitle), Length(winTitle)+1);
  if Length(Trim(winTitle)) < 2 then begin
  ListBox1.Items.Add('Error: 2.'); exit; end else
  ListBox1.Items.Add('title: ' + winTitle);
 
  // ---------------------------------
  // 3. cross check: try to get class:
  // ---------------------------------
  SetLength(s, 100);
  GetClassName(winHandle, PChar(s), Length(s)+1);
  if Length(Trim(s)) < 2 then begin
  ListBox1.Items.Add('Error: 3.'); exit; end else
  ListBox1.Items.Add('class: ' + s);
 
  EnumChildWindows(winHandle, @EnumChildren, 0);
end;
 
procedure Tessai.Button2Click(Sender: TObject);
var
hand:thandle;
lpstring:pchar;
begin
hand:=strtoint('$'+essai.Edit1.Text);;
lpstring:=pchar(edit1.Text);
{sendmessage(hand,WM_SETTEXT,0,longint(lpstring));
{ sendmessage(hand,BM_CLICK,0,0);
sendmessage(hand,BN_DISABLE,0,0)
           }
{PostMessage(hand, WM_COMMAND, MAKEWPARAM(GetDlgCtrlID(Button1.Handle), BN_CLICKED),hand);    }
enablewindow(hand,false);
end;
 
procedure Tessai.Button3Click(Sender: TObject);
var
hand:thandle;
lpstring:pchar;
begin
hand:=strtoint('$'+essai.Edit1.Text);;
enablewindow(hand,true);
end;
 
end.

12/02/2023, 11h56
Mat.M

salut Tintin le code semble être efficient il faut effectivement appeler EnumChildWindows pour obtenir les handle des contrôles.
Est-ce que ça fonctionne alors ?
12/02/2023, 22h05
tintin62

bonsoir
oui et non
je ne parle pas de enable du button ( de Paul) avec enablewindow qui marche très bien
mais des fenêtres
EnumChildWindows ne me marque pas les enfants comme bouton ou liste pourtant avec son handle
j'ai certaine fenêtre ou il y as de boutons label ect .. et sa me les marque pas dans la liste box
comment cela ce peut t'il ou certaine fenêtre sont protéger pour pas lister les compo qui la compose
la je suis un peu perdu ou alors je n'emploi pas la bonne fonction
merci pour aide
13/02/2023, 13h13
Mat.M

salut utiliser Spy++ l'outil de Microsoft pour voir si vous obtenez les bons handle de fenêtre.
Avec EnumChildWindows ça devrait fonctionner normalement.
13/02/2023, 14h56
ShaiLeTroll

FindWindowEx permet de créer l'arbre tous les enfants depuis une fenêtre

Par exemple remplir un Dialogue d'imprimante Fichier automatiquement : https://www.developpez.net/forums/d7...g/#post4215684

Un vieux code que j'ai depuis Phidels en D4 ( peut-être D5 )

https://www.developpez.net/forums/at...illapplic.jpg/
13/02/2023, 15h55
tintin62

bonjour
"ShaiLeTroll" je ne trouve pas ton programme qui tu as mis dans la discussion " tueur de processus"
si tu pouvais me mettre un autre lien de téléchargement stp
les fenêtres ou je ne peux voir ce qui as dedans sont de class "QT5QWINDOW"
++

1 pièce(s) jointe(s)

Il y a une autre approche plus simple et plus pratique (selon le contexte) par l'utilisation de WindowFromPoint pour récupérer le handle de la fenêtre pointée par la sourie.

code suivant trace un rectangle rouge autour de la fenêtre trouvée,
pour l'utiliser appuyer le SpeedButton et maintenir et pointer vers le bouton que tu souhaite récupérer son handle (une fois la sourie relâchée)

Pièce jointe 634199

https://i.ibb.co/PxFyjpB/btn.png

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
 
var
  FindW:boolean;
procedure TForm1.SpeedButton1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  WindowState:= wsMinimized;
  FindW := True;
  TrackWin();
end;
 
procedure TForm1.SpeedButton1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  FindW := False;
end;
 
procedure TForm1.TrackWin();
const BORDSIZE = 3;
var
 R1,R2:HRGN;
 Pt :TPoint;
 cHwnd,old:THandle;
 R:TRect;
 cForm:TForm;
 B:array[byte] of char;
begin
   cForm:= TForm.Create(nil);
   cForm.Color :=clRed;
   cForm.BorderStyle:=bsNone;
   cHwnd :=0;
   try
     while FindW do
     begin
          Sleep(50);
          Application.ProcessMessages();
          GetCursorPos(Pt);
          cHwnd:= WindowFromPoint(Pt);
          if (cHwnd = old) or (cHwnd = Handle) or (cForm.Handle = cHwnd) then
             continue;
          GetWindowRect(cHwnd,R);
          Windows.InflateRect(R,BORDSIZE,BORDSIZE);
          cForm.Hide;
          SetWindowPos(cForm.Handle , HWND_TOPMOST, R.Left, R.Top, R.Width, R.Height , 0);
          R1:= CreateRectRgn(0, 0, R.Width, R.Height);
          R2 := CreateRectRgn(BORDSIZE, BORDSIZE, R.Width - BORDSIZE, R.Height - BORDSIZE);
          CombineRgn(R1, R1, R2, RGN_XOR);
          SetWindowRgn(cForm.Handle, R1, True);
          DeleteObject(R1);
          DeleteObject(R2);
          cForm.Show;
          old :=cHwnd;
     end;
   finally
      cForm.Free;
   end;
   WindowState :=wsNormal;
   B:='';
   Edit1.Text:='0x'+inttohex(cHwnd,8) ;
   if cHwnd <> 0 then
      GetClassName(cHwnd,@B,256);
   Edit2.Text := B ;
end;

13/02/2023, 20h53
tintin62

bonsoir
merci pour ton programme
par contre je travaille avec delphi 7 et il ne connait pas r.width et r.height
SetWindowPos(cForm.Handle , HWND_TOPMOST, R.Left, R.Top, R.Width, R.Height , 0);
mais ce n'est que visuel sur des formes créer par delphi pas de problème Handle il
me les met avec en plus sa class
mais ma fenêtre a moi elle est QTQWINDOW et si je me met sur le bouton rien ne se passe
sauf me dire le handle de la fenêtre

bonsoir
pour le visuel du cadre j'ai du modifier je suis en delphi 7

Code:

1
2
3
4
5
6
 
          large:=r.Right-r.Left;
          haut:=r.Bottom-r.Top;
          SetWindowPos(cForm.Handle , HWND_TOPMOST, R.Left, R.Top,large,haut, 0);
          R1:= CreateRectRgn(0, 0, R.Right, R.Bottom);
          R2 := CreateRectRgn(BORDSIZE, BORDSIZE, large - BORDSIZE, haut- BORDSIZE);

14/02/2023, 08h51
Andnotor

Citation:

Envoyé par tintin62

ma fenêtre a moi elle est QTQWINDOW et si je me met sur le bouton rien ne se passe

A ma connaissance Qt gère lui-même la représentation de ses contrôles, ils n'ont pas de handle au sens Windows.
Tout au plus pourrais-tu récupérer l'état enable par d'autres techniques tel que UIAutomation mais tu ne pourras pas le modifier.
14/02/2023, 10h06
tintin62

bonjour
un autre programme que j'ai trouve sur le site
http://https://codes-sources.commentcamarche.net/source/view/25667/929144#browser

handle sous le curseur faite return pour démarrer le programme
14/02/2023, 11h12
ShaiLeTroll

Citation:

Envoyé par tintin62

bonjour
"ShaiLeTroll" je ne trouve pas ton programme qui tu as mis dans la discussion " tueur de processus"
++

Tu devrais trouver le code de la fenêtre : https://www.developpez.net/forums/d8...e/#post5020600

et une autre version ArbreEnfant : https://www.developpez.net/forums/d4...e/#post2721593

Mais je pense comme Andnotor, QT c'est du Graphic à 100%, pas de dépendance à l'OS pour la GUI, donc tu es sur la mauvaise piste.

Citation:

mais ce n'est que visuel sur des formes créer par delphi pas de problème Handle il
me les met avec en plus sa class

A la base le code était développé sous D7 et je lai modifié pour Delphi Tokyo.

WindowFromPoint ne capte pas les contrôles disabled (j'ai cru que vous avez réglé ce point)
Pour étendre la recherche il faudrait utiliser ChildWindowFromPointEx pour les inclure mais windows dans certains situations impose des restrictions donc elles peuvent échouer

J'ai supprimer le cadrant rouge
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 procedure TForm1.TrackWin(); var Pt :TPoint; cHwnd,old:THandle; B:array[byte] of char; begin while FindW do begin Sleep(50); Application.ProcessMessages(); GetCursorPos(Pt); cHwnd:= WindowFromPoint(Pt); Windows.ScreenToClient(cHwnd , Pt); cHwnd := ChildWindowFromPointEx(cHwnd, Pt,0); if cHwnd = old then continue; if cHwnd <> 0 then begin B:=''; Edit1.Text:='0x'+inttohex(cHwnd,8) ; GetClassName(cHwnd,@B,256); Edit2.Text := B; old :=cHwnd; end; end; end;