Bonsoir à toutes & à tous!


Je voudrait savoir comment régler mon MsgBox pour qu'il lance une page internet APRÈS avoir cliquer sur Ok, et non lorsque l'ont clique uniquement sur le URLLabel

Voila mon code


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Procedure URLLabelOnClick(Sender: TObject);
var
  ErrorCode: Integer;
begin
  ShellExec('open', 'http://google.fr/', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode);
 
  MsgBox('Test', mbInformation, mb_Ok);
 
end;



Merci a vous & a très vite :-)



S@m