Fórum Incompatible type: ´method pointer and regular procedure´ #375514

unit faUtil;

interface

uses Windows, SysUtils, DBCtrls, Messages, Controls;

Type
   procedure ProximoControle(Sender: TObject; var Key: Char);
   procedure ContextoPopUp(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
  
implementation

procedure ProximoControle(Sender: TObject; var Key: Char);
begin {PRÓXIMO CONTROLE COM ENTER}
   if Sender is TDBLookUpCombobox then
      if key = #10 then //CTRL+ENTER
         TDBLookupComboBox(Sender).PopupMenu.Items[0].Click;
   if key = 13 then
      PostMessage(TWinControl(Sender).Handle, WM_NEXTDLGCTL, 0, 0); //no 1º parametro, zero é para frente e um é para cima
end;

procedure ContextoPopUp(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
begin {SETA O FOCO NO COMPONENTE AO CLICAR COM DIREITO PARA ACIONAR OS POP-UPs}
   TDBLookUpComboBox(Sender).SetFocus;
end;

   DBEditContato.OnKeyPress := ProximoControle;

   TUtil = Class
   public
      procedure ProximoControle(Sender: TObject; var Key: Char);
      procedure ContextoPopUp(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
   end;
var
   util: Tutil;

   TUtil = Class
   public
      class procedure ProximoControle(Sender: TObject; var Key: Char);
      class procedure ContextoPopUp(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
   end;
var
   util: Tutil;