30-01-2008
, 21:22:01
|
#3211 |
| Usuario Expulsado Denunciante Constante
 |
jei =/ Cita:
// TForm1 debe tener KeyPreview = True
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = VK_F4) and (ssAlt in Shift) and (MDIChildCount > 0) then
ActiveMDIChild.Close
end;
|
|
|  |