Einzelnen Beitrag anzeigen

Blaubaer

Registriert seit: 26. Aug 2003
2 Beiträge
 
#3

Re: AccessViolation im OnKeyPress

  Alt 30. Aug 2003, 02:00
Hallo Christian,

vielen Dank erstmal für das nette "Willkommen".
Ich konnte das Problem heute lösen. Mir ist klar das ich die Edits nicht extra freigeben wenn ich self verwende. Ich erstelle die Edits aber eigentlich nicht wie hier getippt mit self sonder mit NIL was aber keinen Einfluß auf den Fehler hatte.

Das Problem lag im OnKeyDown Ereignis des Formulars. Der key wurde nachdem er verarbeitet wurde dann an die bereits zerstörte EditKomponente geschickt und dadurch entstand der Fehler. Die Lösung sieht jetzt ganz einfach so aus:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Edit1.Setfocus;
case key of
Vk_F7 : begin
SpeedButton1Click(Form1);//CreateADVEdits;
key := 0;// Das ist die Lösung des Problems
end;

Vk_F8 : begin
SpeedButton2Click(Form1);//DestroyADVEdits;
key := 0;
end;
end;
end;

Trotzdem vielen Dank für Deine Zeit. Ich werd sicher hier dabei bleiben gefällt mir sehr gut hier. Plant ihr eventuell auch Treffen oder vielleicht einen Stammtisch ?

Vielen Dank und viele Grüße
Sebastian
  Mit Zitat antworten Zitat