Probleme avec minimize - Delphi/Pascal - Programmation
Marsh Posté le 14-07-2004 à 12:37:38
Apres plusieur essais, il semble que le minimize ne soit pas compatible avec le double-clic.
J'ai essayé de deturner le probleme avec un appli.onidle:=Form1appidle mais ca ne marche pas non plus.
Need Help
Marsh Posté le 14-07-2004 à 12:40:23
Essaie de faire un PostMessage, mais je ne sais plus quel look a le message disant à l'application de se minimiser.
Marsh Posté le 14-07-2004 à 14:10:44
J'ai essayer avec un petit code qui minimize toute les fenetres et affiche alors que le bureau et ca ne marche toujours pas. A croire que le double clic empeche le minimize.
h:=handle;
while h > 0 do
begin
if isWindowVisible(h) then
postmessage(h,WM_SYSCOMMAND,SC_MINIMIZE,0);
h:=getnextwindow(h,GW_HWNDNEXT);
end;
Marsh Posté le 14-07-2004 à 11:25:19
Je viens de commencer le delphi hier et j'ai une petit probleme de minimize. Voila ce que je fais
procedure TForm1.Panel1Click(Sender: TObject);
begin
sndPlaySound('Truc.wav', SND_ASYNC); //marche
ShellExecute(0,'OPEN','notepad.exe', Nil, Nil, SW_SHOW); //marche
application.Minimize();
end;
J'ai mis cette fonction sur le double clic d'un panel et meme si je met que la ligne application.Minimize(), on dirai qu'elle n'est pas executée.
J'ai un bouton avec juste la fonction minimize qui marche tres bien.
Si quelqu'un sait pourquoi?