Mousla seçili linki internet penceresinde açmak

[McVeLeT]

Merhaba arkadaşlar, mousla seçtiğimiz bir yazıyı sağ tıklayarak git dediğimizde o linke nasıl gönderebiliriz?

texte yazıp buttona tıkladığımızda değilde, mousla linki seçip, sağ tık, git seçeneğiyle o linke gitmek istiyorum.

Aşağıdaki kodu nasıl değiştirmeliyim, yada nasıl bir kod kullanmalıyım

Kod: Tümünü seç

ShellExecute(Handle,
'open',
PChar(Edit1.Text),
nil,
nil,
sw_ShowMaximized);

[AliZairov]

Selam. Label PopupMenu bağla. Sağ tıklayınca popup menu gelir zaten. Ordan işlem yaptırın.

[McVeLeT]

cevabın için teşekürler, sağ tıklayınca a.ılan git komutuna hangi kodu yazacağız? Onu sormuştum.

[AliZairov]

Selam. Buyur.

Kod: Tümünü seç

uses ShellApi;

ShellExecute(Handle, nil, 'http://delphiturkiye.com/', nil, nil, sw_ShowNormal);

[McVeLeT]

teşekürler ama ben memo içindeki herhangi bir linkimaousla seçip, sağ tıkla açmak istiyorum

http://delphiturkiye.com/ bu linki mosula seçip sağ tık ve aç gibi...

ShellExecute(Handle, nil, 'http://delphiturkiye.com/', nil, nil, sw_ShowNormal);

[Lord_Ares]

Seçtiğin yer, sayfayı açtıracağın browser gibi şeyler hakkında da bilgi paylaşırsan, inanıyorum ki cevabı bulmak daha kolay olur.
Soruna baktığımda ilk aklıma, gelen acaba seçim yaptığı alan, bir delphi formumu, yoksa txt mi, excel mi, farklı bir webbrowserda mı gibi bir çok şey geldi.
Farklı bir program içinde bir alan seçecekseniz handle olayı işin içine girebilir ama siz kendi yazdığınız bir webbrowserda bir alanı seçip yine aynı webbrowserın farklı bir sekmesinde açacaksanız yine değişir..

[McVeLeT]

Anladım, linkler programda Richedit içinde. Richedite PopupMenu bağladım ve Richedit içindeki linki seçip sağ tıkla aç dediğinde, program dışında bilgisayardaki etkin browser ile açmasını istiyorum (internet explorer veya Chrome gibi)

[Lord_Ares]

Formuna bir adet popup menu ve bir adet webbrowser ekle.
webbrowserda aç menüsünün altına şu kodu yaz.
riceditte seçileni webbrowser ile açmak için

Kod: Tümünü seç

var
   secilen : string;
begin
   secilen := RichEdit1.SelText;
   WebBrowser1.Navigate(secilen);

end;

riceditte seçileni varsayılan tarayınca açmak için.

Kod: Tümünü seç

var
 secilen:string;
 begin
 secilen:=  RichEdit1.SelText;

  ShellExecute(Handle,
               'open',
               PChar(secilen),
               nil,
               nil,
               SW_SHOWNORMAL);

end;

Ekte sana küçük bir örnek hazırladım incelersin. Başarılar..

[McVeLeT]

Teşekkür ederim yardımın için