Zitat:
Delphi-Quellcode:
Procedure MakeWindowTransparent (Form: TForm);
Var CurrentStyle : LongInt;
Begin
Form.Visible := False;
CurrentStyle := GetWindowLong(Form.Handle, GWL_EXSTYLE);
SetWindowLong(Form.Handle, GWL_EXSTYLE, CurrentStyle Or WS_EX_TRANSPARENT);
Form.Visible := True;
End; {Paul Röttgen}
Procedure MakeWindowOpaque (Form: TForm);
Var CurrentStyle : LongInt;
Begin
Form.Visible := False;
CurrentStyle := GetWindowLong (Form.Handle, GWL_EXSTYLE);
SetWindowLong(Form.Handle, GWL_EXSTYLE, CurrentStyle And Not WS_EX_TRANSPARENT);
Form.Visible := True;
End; {Paul Röttgen}
macht wieder das ganze form unsichtbar
Zitat:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.Brush.Style := bsClear;
Form1.BorderStyle := bsNone;
end;
sorgt nur dafür das es zu anfang transparent ist
beim verschieben stimmt es nicht mehr