Ou vc pode desenhar (de verdade) em qualquer área do PageControl.

var
  DC: HDC;
  R: TRect;
  CV: TCanvas;
begin
  CV := TCanvas.Create;
  //Toda janela tem um "device context"
  DC := GetDC(PageControl1.Handle);
  try
    //Só precisamos associá-lo a um objeto Canvas
    CV.Handle := DC;
    //E pronto. Podemos usar qq função do TCanvas
    R := PageControl1.ClientRect;
    CV.Ellipse(R.Right-50, R.Top, R.Right, R.Top+20);
  finally
    CV.Free;
    //Sempre lembrar de liberar o DC depois de usar
    ReleaseDC(PageControl1.Handle, DC);
  end;
end;

Daí, para desenhar um bitmap, em vez da função Ellipse, use a função Draw.



--- Em delphi-br@yahoogrupos.com.br, Moacir - GMAIL <prism...@...> escreveu
>
> 
> Eduardo,
> 
> Coloque um painel ali e dentro do painel o teu bitmap.
> 
> Moacir
> 
> Em 04/04/2010 22:49, Eduardo Silva dos Santos escreveu:
> > Olá pessoal, alguém tem alguma dica de como exibir um bitmap naquela área do
> > PageControl? área após o última aba.
> > segue imagem para ilustrar: http://yfrog.com/1rpagewp
> > o bitmap já está ao fundo do form, mais aquele parte azul clara fica sobre o
> > bitmap.
> >
> > Att,
> > .......................................................
> > Eduardo Silva dos Santos
> >
> >
>


Reply via email to