unit Compo; ... TMonEdit = class(TEdit) ... end; unit unit1; ... procedure TForm1.Button1Click(...); var edt: TMonEdit; begin edt := TMonEdit.Create(self); edt.parent := self; ... end;
type TMyEdit = class(TEdit) protected procedure WMChar(var Message: TWMChar); message WM_CHAR; end; //... procedure TMyEdit.WMChar(var Message: TWMChar); begin if Message.CharCode = VK_RETURN then begin Message.CharCode:= 0; PostMessage(Parent.Handle, WM_NEXTDLGCTL, 0, 0); end else inherited; end;
uses MyEdit; var Edit1: TMyEdit; procedure TForm1.FormCreate(Sender: TObject); begin Edit1:TMyEdit.Create(Self) // Self, ici Form1 with Edit1 do begin Parent:= Self; Left:= 100; Top:= 100; //... // tu peux assigner ici des événements // OnChange:= Edit1Change (procedure à déclarer et à implémenter) end; end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
En fait, je rectifie ce que j'ai dit, tu peu utiliser un compo non installé au designtime en passant par une TFrame.