FORM Transparente

14/12/2003

1

[b:024fc46485]Gostaria de saber como colocar o form transparente e tb colocar uma figura nele de modo q quando cliar na figura e arrastá-la o form arrasta junto com ela[/b:024fc46485]


Responder

Posts

Form Transparente e transpassavel

var 
  AControl: TControl; 
  A, Margin, X, Y, CtlX, CtlY: Integer;
  Fullrgn,CtlRgn,ClientRgn : thandle; 
begin 
  Margin    := (Width - ClientWidth) div 2; 
  FullRgn   := CreateRectRgn(0, 0, Width, Height); 
  X         := Margin; 
  Y         := Height - ClientHeight - Margin; 
  ClientRgn := CreateRectRgn(X, Y, X + ClientWidth, Y + ClientHeight); 
  CombineRgn(FullRgn, FullRgn, ClientRgn, RGN_DIFF); 
  for A := 0 to ControlCount - 1 do 
  begin 
    AControl := Controls[A]; 
    if (AControl is TWinControl) or (AControl is TGraphicControl) then with AControl do 
      begin 
        if Visible then 
        begin 
          CtlX   := X + Left; 
          CtlY   := Y + Top; 
          CtlRgn := CreateRectRgn(CtlX, CtlY, CtlX + Width, CtlY + Height); 
          CombineRgn(FullRgn, FullRgn, CtlRgn, RGN_OR); 
        end; 
      end; 
  end; 
  SetWindowRgn(Handle, FullRgn, True);



Responder

15/12/2003

Cebikyn

Resposta à segunda parte da pergunta (clicar na figura e arrastar o form):

No OnMouseDown de sua figura (TImage), coloque:

  ReleaseCapture;
  Perform(WM_SYSCOMMAND,$F012,0);

Se a figura for desenhada direto no Canvas do form, o código tb funciona, bastando colocar o código no OnMouseDown do form.


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira