Delphi Forum

maalesef delphi yüklü değil. neyse başka bir programlar hallettim meselemi. ilgilenen herkese teşekkürler

".db" uzantılı dosyaları program vasıtasıyla açıp içinden bazı kayıtları silmek istiyorum. Bunun içn Borland Database Desktop programını tavsiye ettiler. Bu programı nereden indirebilirim. Veya bunun için kullanabileceğim başka bir program var mı. Yardımcı olursanız sevinirim arkadaslar.

yukarıdaki kodla ilgili ek olarak sağ tıklandığında popup menü gelsin istiyorum.properties den formun ve webbrowser bileşeninin popupmenu özellikerine popupmenu1 i atadım..ancak, bu kodda Handled := true; satırını kaldırınca, sayfada sağ click yapıldığında internet explorer ın kendi menüsü geliyor ...

WebBrowser nesnesi içindeki web sayfasında sağ tıklamayı engelleme

forma bir adet TWebBrowser ve Additional sekmesinde bulunan ApplicationEvents bileşeni koyun. ApplicationEvents bileşeninin OnMessage olayına şu kodu yazın :


procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var ...

Case Msg.message Of
WM_RBUTTONDOWN,
WM_RBUTTONDBLCLK :
begin
If (WebBrowser1.Handle = Msg.HWND)
then
begin
Showmessage('WebBrowser1''den sağ mouse tıklaması tespit edildi...');
end;
end;
end; // Case


formun oncreate olayında WebBrowser1.Navigate('www.google.com'); dediğimde ...

sizin verdiğiniz kodu TForm1.ApplicationEvents1Message de denedim..programı çalıştırdım ancak sağ click olayını ne engelliyor ne de ekrana sizin verdiğiniz kodda showmessage içindeki mesaj ekrana geliyor.dediklerinizden de pek bişey anlamadım doğrusu..zaten üst düzey delphi kullanıcısı değilim..daha ...

form içerisine bir tane TWebBrowser nesnesi koydum.ve bu form üzerinde
gelecek web sayfasında sağ click olayını engellemek istiyorum..daha önce
MouseProc adında bir fonksiyon kullandım..ama Win98 ve Win ME sistemlerde
KRNL386.EXE hatası verdi..yardımcı olursanız sevinirim..teşekkürler..

winxp ve delphi 7 kullanıyorum..bir tray icon uygulaması yaptım..programı sağ üst köşedeki çarpı düğmesinden kapatınca simge durumuna getiriyorum(tıpkı msn messenger gibi..). icona popup menu ekledim..aç,gizle,çıkış vs. menuler var...ancak birkaç kez aç-gizle yapınca bazı makinalarda hata veriyor ...

bakın şöyle birsey yaptım :

procedure TForm1.FormShow(Sender: TObject);
begin
if IsUserOnline = false then
if MessageDlg('İnetnet Bağlantınız Yok !!!',MtError,[mbOk],0)=mrOk then close
else
begin
HookID := SetWindowsHookEx(WH_MOUSE, MouseProc, 0, GetCurrentThreadId());
Webbrowser1.Navigate('http ...

usta şimdi benim şöyle bir sorunum var : delphi ile yaptığım bir exe file var..bu file a tıklayınca bir pencere içerisinde web sayfasını Twebbrowser ile açıyorum..eğer makinada internet bağlantısı yoksa 'bağlantınız yok' gibilerden hata mesajı verdiriyorum..yalnız hata mesajı geldikten sonra pencere ...

delphide messagedlg fonksiyonunda ekrana gelen mesajda sağ üstteki çarpı(kapat) butonuna tıklayarak ona göre sonuç döndürebilirmiyiz..örnek : OK butonuna tıklandığında mrOk sonucunun dönmesi gibi..teşekkürler..

adres bu

http://www.programlama.com/sys/c2html/v ... ?DocID=255

win XP ve delphi 7 kullanıyorum.ben de trayicon componentini kurdum..sonra formun üzerine bu bileşeni attım..bir tane de imagelist bileşeni attım..daha sonra imagelist e icon ekledim..TrayIconun Images Propertisine imageList i atadım..formun onshow olayına TrayIcon1.Active:=True dedim..program ...

usta özür dilerim.insallah birdaha olmaz.soruma gelince:
bilgisayarın internete bağlı olup olmadığını kontrol ettirmek istiyorum.bunun icin tcp componenti gerekli..delphideki tüm componentleri kontrol ettim ama tcp componenti yok.bu componenti nereden bulurum.

veya bende ping componenti var.bu ...

bilgisayarın internete bağlı olup olmadığını kontrol ettirmek istiyorum.bunun icin tcp componenti gerekli..delphideki tüm componentleri kontrol ettim ama tcp componenti yok.bu componenti nereden bulurum.

veya bende ping componenti var.bu componenti kullanarak bir siteye nasıl atabilirim.teşekkürler.