08-11-2017, Saat: 13:38
Merhaba;
Hatırlatma programı yapıyorum, fakat popup form ekranını image (Form3.Close; ) ile kapatmak istediğimde kapanmıyor, (Form3.Free; ) ile kapatma istediğimde ise resimdeki uyarı hatasını alıyorum bunun sebebinedir?
Databeseyi kontrol:
Ekranın sağ tarafında popup menü:
Form popup close:
Hatırlatma programı yapıyorum, fakat popup form ekranını image (Form3.Close; ) ile kapatmak istediğimde kapanmıyor, (Form3.Free; ) ile kapatma istediğimde ise resimdeki uyarı hatasını alıyorum bunun sebebinedir?
Databeseyi kontrol:
procedure DBKontrol.Execute; begin Adet := 0; Okuma := 'Beklemede'; with Form1, Genel do try Connection := FDConnecMain; Close; SQL.Clear; SQL.Add('Select Count(*) As ID, DURUM From HATIRLAT'); Prepared := True; Open; Adet := FieldByName('ID').AsInteger; Okuma := FieldByName('DURUM').AsString; if (Adet < 1) or (Okuma = 'Okundu') then begin TimerKontrol.Enabled := False; end else begin ControlDateTime := Now; Connection := FDConnecMain; Close; SQL.Clear; SQL.Add('Select Count(*) As ID From HATIRLAT Where TARIH <=:Tarih And Saat <=:Saat And DURUM=''Okunmadı'''); Params[0].AsDate := DateOf(ControlDateTime); Params[1].AsTime := TimeOf(ControlDateTime); Prepared := True; Open; if Not IsEmpty then begin Kactane := FieldByName('ID').AsInteger; Form3.HTBilgilendirme.Caption := IntToStr(Kactane) + ' Yeni hatırlamanız var'; Form3.Show; Form3 := TForm3.Create(Nil); Application.ProcessMessages; end; end; finally Genel.Close; TimerKontrol.Interval := 60000; TimerKontrol.Enabled := True; end; end;
Ekranın sağ tarafında popup menü:
procedure TForm3.FormShow(Sender: TObject); begin Form3.Left := Screen.Width - 255; Form3.Top := Screen.Height - 145; AnimateWindow(Form3.Handle, 200, AW_VER_NEGATIVE or AW_SLIDE); end;
Form popup close:
procedure TForm3.ImageCloseClick(Sender: TObject); begin Form3.Free; Form3.Close; end;
Hayat bazen güzel olabiliyor.