Buscar

Como saber qual o objeto que esta com o foco no form?

Código

//Através do evento onKeyPress do form, pode-se testar:


if (ActiveControl is TCustomEdit) and (Key = #1) then
  blablabla;
ou Como no exemplo abaixo:
 
procedure TForm1.mnuPasteClick(Sender: TObject);
var
  CanPaste: Boolean;
  Ctrl: TWinControl;
begin
  Ctrl := ActiveControl;
  if (Assigned(Ctrl) and
  Clipboard.HasFormat(CF_TEXT)) then
  begin
  if (Ctrl is TEdit) then
  CanPaste := (not TEdit(Ctrl).ReadOnly)
  else if (Ctrl is TMaskEdit) then
  CanPaste := (not TMaskEdit(Ctrl).ReadOnly)
  else if (Ctrl is TMemo) then
  CanPaste := (not TMemo(Ctrl).ReadOnly)
  else if (Ctrl is TRichEdit) then
  CanPaste := (not TRichEdit(Ctrl).ReadOnly)
  else
  CanPaste := False;
  if (CanPaste) then
  TCustomEdit(Ctrl).PasteFromClipboard;
  end;
end;  

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Forms
Adicionada dia: 06/06/03
Por: Felipe Monteiro
Visualizada: 2956 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009