No hay respuestas en este tema

[sir.dev.a.lot]

[TRUCO DELPHI] Estatus de los Indicadores del Teclado.

delphi

Procedure TForm1.GetStatusInfo;
	const
	  CapPanel  = 1;
	  NumPanel  = 2;
	  ScrlPanel = 3;
	  DatePanel = 4;
	begin
	  with StatusBar1 do
	  begin
	    if GetKeyState(VK_CAPITAL) <> 0 then
	      StatusBar1.Panels[CapPanel].Text := ' CAP'
	    else
	      StatusBar1.Panels[CapPanel].Text := '';
	    if GetKeyState(VK_NUMLOCK) <> 0 then
	      StatusBar1.Panels[NumPanel].Text := ' NUM'
	    else
	      StatusBar1.Panels[NumPanel].Text := '';
	    if GetKeyState(VK_SCROLL) <> 0 then
	      StatusBar1.Panels[ScrlPanel].Text := ' SCRL'
	    else
	      StatusBar1.Panels[ScrlPanel].Text := '';
	   StatusBar1.Panels[DatePanel].Text := FormatDateTime(' mmmm D, YYYYY',
	now);
	  end;
	End;

Saludos!