Showmessage link ekleme

[dogan]

Selam, Showmessage ye link nasıl verebilirim???

Kod: Tümünü seç

procedure TForm1.UyarıClick(Sender: TObject);
var
  Mesaj1, Mesaj2, Link: String;
begin
  Mesaj1 := 'Kullanmakta Olduğunuz Program Demo Versiyon!';
  Mesaj2 := 'İşleminize Devam Edebilmeniz İçin Lisans Satın Almanız Gerekir...';
  Link := 'http://www.delphiturkiye.com/forum/';
  Showmessage(Mesaj1 + sLineBreak + Mesaj2 + sLineBreak+ Link + sLineBreak);
end;

[xozcanx]

Merhaba;
Showmessage değil fakat aşağıdaki kod işinizi görür

Kod: Tümünü seç

Uses ShellAPI;

var msj:integer;
begin
  msj:=Application.MessageBox('Kullanmakta Olduğunuz Program Demo Versiyon'+#10#10+
                              'İşleminize Devam Edebilmeniz İçin Lisans Satın Almanız Gerekir...'+#10#10+
                              'Şimdi Lisans Almak İster misiniz?','UYARI!',MB_YESNO+MB_ICONASTERISK);
  if msj=ID_YES then
  ShellExecute(Handle, 'open', 'http://www.delphiturkiye.com', nil, nil, SW_SHOWNORMAL)
end;