MDIChild Fenster beenden

[RB]

Hi,

gibt es eine Möglichkeit ein MDIChild Fenster mit einer anderen Tastenkombination als <STRG-F4> zu beenden. Die Funktion <STRG-F4> soll mit den Tasten <ALT-X> ersetzt werden!

Danke RB

[Matthias Fichte]

Hallo, fange doch einfach die Tastatur ab.<BR>
Im OnKeyUp Ereigniss des MDI Fensters z.B.<BR>

procedure TForm2.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);<BR>
begin<BR>
// 88 = X; 120 = x <BR>
if ((Key = 88) or (key = 120)) and (shift = [ssAlt]) then<BR>
Close;<BR>
end;<BR>

Gruß<BR>
Matthia