Ingen baggrund

Jeg går ud fra at du er indehaver af Borland Delphi (version et eller andet)- det vil sige at du programmere OOP (står for Objekt Orienteret Programmering). Det betyder at alt hvad du programmere skal anvendes som objekter (vinduer om du vil).

Det vil sige at Formen SKAL være der for at du kan vise noget grafisk på skærmen! - Men der findes et hav af løsninger så det \"ser ud som om\" at der ikke findes nogen Form.

Hvis du vil fortælle mig lidt mere omkring dit projekt og uddybe din grafiske situation lidt nærmere, kan jeg helt sikkert give dig nogle flere hints og tips.

ZeroHero

1. Sæt border style til bsNone

2. Indsæt denne kode:


procedure TMainForm.DoInvisible;
var
  AControl : TControl;
  A, Margin, X, Y, CtlX, CtlY : Integer;
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);
end;



procedure TMainForm.FormCreate(Sender: TObject);
begin
  DoInvisible;
end;


Alt undtagen grafik, vil blive gennemsigtigt! Godt til effektfulde programmer etc.