Discussion :

[sam469]

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

[ShaiLeTroll]

Euh, tu inverses les deux lignes ?

[sam469]

Salut!

XD a oui.....


Merci beaucoup ^^


(Les solutions les plus simple sont les meilleurs ^^)


Merci encore et pardonne ma stupidité ^^



A très vite!



S@m