Você pode fazer isso da seguinte forma:

crie o desenho no paint por exemplo e coloque ele em um timage no form.
Coloque a cor do form como uma cor diferente do form.
Mude as seguintes opções do form.
Transparentcolor =  True;
TransparentcolorValue =  Cor do Form;
borderStyle = bsnone;

Está ai um form com formato diferente.

Obs:
Existem outras maneiras, mas aqui é mais rápido e fácil fazer isso.
Emerson Reis
**************
Programador
Pyxis Softwarehouse
www.pyxisweb.com.br
  ----- Original Message ----- 
  From: Ricardo César Cardoso 
  To: [email protected] 
  Sent: Tuesday, August 12, 2008 4:54 PM
  Subject: [delphi-br] Desenhar formas irregulares no form


  Boa tarde, amigos!

  Com algum custo e pesquisa consegui montar uma rotina para desenhar 
quadrados, retângulos, círculos e elipses num TImage usando o Canvas.

  Porém, todavia, entretanto tenho que desenhar algumas formas "irregulares" 
que no software são chamadas de vigas e cantoneiras. O desenho dessas formas 
está no link abaixo:

  [ http://img243.imageshack.us/img243/3479/formasqp3.jpg ]

  Alguém por favor poderia me indicar como desenhar isso, tendo como base que o 
usuário fornecerá a forma e as dimensões e com base nisso eu desenharei? Devo 
usar MoveTo / LineTo? 

  Grato,
  Ricardo.

  Novos endereços, o Yahoo! que você conhece. Crie um email novo com a sua cara 
@ymail.com ou @rocketmail.com.
  http://br.new.mail.yahoo.com/addresses

  [As partes desta mensagem que não continham texto foram removidas]



   

[As partes desta mensagem que não continham texto foram removidas]

Responder a