First chance exception at $74F4845D. Exception class EOSError with message
'System Error. Code: 1400.
Geçersiz pencere işleci'.
Process SplitView.exe (1540)
hatası ile karşılaşıyorum, showmessage veya label kullandığımda sıkıntı çıkmıyor bu sorun neden kaynaklanıyordur..n
Kod: Tümünü seç
procedure TForm3.HatirlatmaTimerTimer(Sender: TObject);
begin
with MesajKontrol.Create do
FreeOnTerminate := True // İşlem bitince bellekten sil
end;
Kod: Tümünü seç
procedure MesajKontrol.Execute;
var
ControlTime: TDateTime;
begin
With Form3, Form3.QHatirlat do
begin
HatirlatmaTimer.Enabled := False;
ControlTime := Now;
Connection := TEMELConnection;
Close;
SQL.Clear;
SQL.Add('Select * From HATIRLATMA');
SQL.Add('Where TARIH <=:Tarih and Saat <=:Saat And DURUM=''Yeni''');
Params[0].AsDate := DateOf(ControlTime);
Params[1].AsTime := TimeOf(ControlTime);
Prepared := True;
Open;
if Not IsEmpty then
begin
if FileExists(SesAdres) then
begin
///Form3.BalloonMesaj('Yeni bir mesaj aldınız'); ????
PlaySound(PChar(SesAdres), 0, SND_ASYNC or SND_FILENAME);
end;
end;
end;
end;
end;