Hey,
also der Code sieht folgendermaßen aus :
Delphi-Quellcode:
procedure Tfrmansimitarst.cxbtnloeschenClick(Sender: TObject);
begin
MessageDlg('Diesen Mitarbeiter wirklich löschen ?', mtConfirmation, [mbYes, mbNo, mbCancel], 0);
if MessageDlg('Diesen Mitarbeiter wirklich löschen ?', mtConfirmation, [mbYes, mbNo, mbCancel], 0)= mrYes then
begin
DataModuleMain.ibtablemitarbeiter.Delete;
end
else
DataModuleMain.ibtablemitarbeiter.Cancel;
end;
Der Dialog wir Aufgrufen bei dem Ereigniss "ONClick" klappt auch alles nur wenn der Dialog der Msgdlg erscheint und ich dann dort die Buttons zur Verfügung habe muss ich diese mit einem DoubleClick betätigen damit die jeweilige Funktion ausgeführt wird.
Sollte aber normal mit einem einfachen Klick gehen.
Gruss
Darkchild