Felipe Monteiro de Carvalho wrote:
I tryed to create a TCustomControl descendent, but I can't seam to see
it on the screen no matter what I do ...
Can anyone help me (again)?
Here is how I create it:
procedure TfrmPrincipal.FormCreate(Sender: TObject);
begin
Tela := TTela.Create(Self);
Tela.Height := 400;
Tela.Width := 500;
Tela.Left := 0;
Tela.Top := 0;
Tela.OnPaint := @DesenharRetas; // DesenharRetas is a painting
TNotifyEvent. It doesn't matter if it is here.
Tela.Visible := True;
Tela.Parent := Self;
Regards,
Andrew
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
