agda calısan bir programda yeni bir kaydı haber verme

[dtgb]

merhaba arkadaslar
agda calısmak uzere hazırladıgım bir programda veritabanına yeni bir kayıt girildiginde yada varolan kayıtlarda bi degisiklik yapıldıgında bunu ekrana bir msg bildirmek istiyorum nasıl yapabilecegim konusunda bir fikri olan var mı?
bide programı gorev cubugunda gizli simgelere nasıl ekleyebilirim.
tesekkurler iyi calısmalar...

[P206]

Selamlar

Önce hangi veritabanını kullanıyorsun onu bilmek lazım, Interbase, firebird de direk veritabınından bunu yapabilrsin.
Sorduğun iki konuda tartışılmıştı.

Arama yaparsan bulabilirsin.

Teşekkürler İyi Çalışmalar.

[dtgb]

veritabanım msaccess
minimize olayını ise saatin yanına koymak istiyorum onla ilgili bulamdıgım icin sordum.
tesekkurler...

[fduman]

System Tray'e icon olarak eklemek için bkz. google, system tray icon delphi component

[P206]

Benim Tray icon için kullandığım kodu gönderiyorum.

tanılama yapıp icon messajlarını yakalaman için.

Kod: Tümünü seç

    procedure cevap (var msg:TMessage);
    message wm_iconmessage;
  private
     nid: TNotifyIconData;
    { Private declarations }
  public



implementation



{$R *.DFM} // bu kısmı eklemeyi unutma.

Formun Create inde icon resmini belirlemek için

Kod: Tümünü seç

procedure TForm1.FormCreate(Sender: TObject);
begin
            // load the initial icon

        Icon.Handle:=LoadIcon(HInstance,'MAINICON');
        nid.cbSize:=sizeof(nid);
        nid.Wnd:=handle;
        nid.uID:=1;
        nid.szTip:='İngilizce Türkçe Sözlük';
        nid.uCallbackMessage:=wm_IconMessage;
        nid.hIcon := Icon.Handle;
        nid.uFlags:=NIF_MESSAGE or NIF_ICON or NIF_TIP;
        Shell_NotifyIcon (NIM_ADD, @nid);

end;

Burda Icona tıklamalar bulunuyor

Kod: Tümünü seç

procedure TForm1.cevap(var msg: TMessage);
begin
        if msg.LParam=wm_rbuttondblclk then begin
                halt;
        end;
        if msg.lparam=wm_lbuttondblclk then form2.show;
end;

Burada ki kokdlada istersen iconunu icon.res dosyanda yaptığın değer ikonla resmini değiştirebilirsin.

Kod: Tümünü seç

                Icon.Handle:=LoadIcon(hinstance,'appli');
                nid.hIcon:=icon.handle;
                nid.uFlags:=NIF_ICON or NIF_MESSAGE or NIF_TIP;
                Shell_NotifyIcon(NIM_MODIFY,@nid);

Kolay Gelsin

[dtgb]

kusurabakmayın ama sanırım kacırdım bu kodları hangi soruma karsılık gonderdiniz koduda tam olarak cozemedim
benim amacım program simge halinde calısırken kayıt sayısı artarsa eger ekrana msg gondermek. afterposta falan yazdım ama olmadı

[gkimirti]

bildigim kadarıyla accessin mesaj gonderme gibi bir luksu yok
db ye baglanıp belli aralıklarla yeni kayıt varmı diye kontrol etmen gerek
ama firebird dersen forumda Post_event aradıgında nasıl yapılacagını goreceksin

sanırım kodların neyin cevabı oldugu gayet acık

bide programı gorev cubugunda gizli simgelere nasıl ekleyebilirim.

hala systray hakkında anlamadıgınız bir nokta varsa systray diye arama yapın forumda, gelen mesajların hepsini bi okuyun aklınıza takılanları bu baslık altına sorun
cevap bulacaksınız

[dtgb]

Tesekkurler
kolay gelsin...