Ich hab hierzu auch noch eine Frage:
Ich habe einem Button des FButtonArrays die Funktion gegeben, dass Programm zu beenden.
Erstellen eines neuen Buttons
Delphi-Quellcode:
SetLength(Form1.FButtonArray, 10);
Form1.FButtonArray[iCnt]:= TButton.Create(Form1);
Form1.FButtonArray[iCnt].Parent := Form1;
Form1.FButtonArray[iCnt].Caption := 'Programm Beenden';
//Form1.FButtonArray[iCnt].Tag := iCnt;
Form1.FButtonArray[iCnt].Left := x+25;
Form1.FButtonArray[iCnt].Top := y;
Form1.FButtonArray[iCnt].Width := w;
Form1.FButtonArray[iCnt].Height := h;
@Form1.FButtonArray[iCnt].OnClick := @MeinEigenesOnClick;
Nachdem auf ein Button geklickt wurde
Delphi-Quellcode:
procedure MeinEigenesOnClick (Self: TObject; Sender: TObject);
var prg_gesucht : string;
begin
prg_gesucht := TButton(Sender).Caption;
if prg_gesucht = 'Programm beenden' then begin
MessageDlg ('Beenden ...',mtInformation,[mbOk],0);
// Fehlt hier was ???
Form1.Close;
end;
[...]
Seitdem ich dies so mache (Beenden des Programms) kommt nach Schließen des Programms der Windows-Fehler-Sound
und in der Delphi-Umgebung die Debugger-
Exception "Ungültige Zeigeroperation".
Kann mir jemand helfen ???
MFG
devnull