Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   Valor en "MessageDlg" (https://www.clubdelphi.com/foros/showthread.php?t=48728)

look 02-10-2007 23:00:51

Valor en "MessageDlg"
 
hola como puedo mostrar el valor de un DBedit en un MessageDlg
,y como puedo mostrar un form precionando una tecla de funcion ? miestras estoy en el form principal...:)

xEsk 03-10-2007 00:01:48

Hola, para detectar la presión de una tecla de función debes:

1. Poner la propiedad "KeyPreview" a "True".
2. Luego en el evento: "OnKeyDown" poner algo parecido a esto:
Código Delphi [-]
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_F1: { código a realizar al presionar F1 };
    VK_F2: { código a realizar al presionar F2 };
    ...
    VK_F24: { código a realizar al presionar F24 };
  end;
end;

Para mostrar un MessageDlg con el valor de un TDBEdit:
Código Delphi [-]
MessageDlg(DBEdit1.Text, mtInformation, [mbOk], 0);

Saludos.


La franja horaria es GMT +2. Ahora son las 06:29:51.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi