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
Partager