Probleme avec minimize

Probleme avec minimize - Delphi/Pascal - Programmation

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?

Reply

Marsh Posté le 14-07-2004 à 11:25:19   

Reply

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 :)

Reply

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.


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

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;

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed