Neredzams TForm1 /delphi/ lai var izveidot savu logu

[mmittz]

sveiki, kā panākt, lai delphi 2009 TForm1 būtu caurspīgīgs bez aizpildījuma, izmantoju, šīs rindas

Quote:

procedure TForm1.FormCreate(Sender: TObject);

begin

Form1.Brush.Style := bsClear;

Form1.BorderStyle := bsNone;

end;

Kā jau avotā rādīts jāizmanto vēl viena procedūra:

Quote:

procedure TForm1.CreateParams(var Params: TCreateParams);

begin

inherited CreateParams(Params);

Params.ExStyle := Params.ExStyle OR WS_EX_TRANSPARENT;

end;

https://www.bildites.lv/images/34diwupdr4yev82h6quk.png

Bet reāli, problēma paliek, nekas nepalīdz, vai jūs esat atrisinājuši šo problēmu?

šeit programmas kods

Quote:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, pngimage, ExtCtrls;

type

TForm1 = class(TForm)

Image1: TImage;

procedure FormCreate(Sender: TObject);

private

procedure CreateParams(var Params: TCreateParams);

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

form1.brush.Style:=bsclear;

form1.BorderStyle:=bsnone;

end;

procedure TForm1.CreateParams(var Params: TCreateParams);

begin

inherited CreateParams(Params);

Params.ExStyle := Params.ExStyle OR WS_EX_TRANSPARENT;

end;

end.

doma šo bildi izmantot loga vietā

[img]https://www.bildites.lv/images/jrw20x13xfxkaapm6o1.png[/img]

[Autors]

Ieraksti