Hjælp til brug af kode?!?

Tags:    delphi

<< < 12 > >>
Hej! Jeg fandt denne kode til at få et vindue til at blive i baggrunden.

protected
procedure CreateParams(var Params: TCreateParams); override;

//...

procedure TForm.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
if Assigned(Application.MainForm) then
begin
Params.WndParent := GetDesktopWindow;
Params.Style := WS_CHILD;
end;
end;

Når koden indsættes køres programmet fint, men hvordan aktivere jeg koden...

Jeg gætter på det er noget lignende...

Procedure TForm1.FormCreate(Sender: TObject);
begin
CreateParams(Etellerandet);
end;


men det gider den ikke? Noget der kan hjælpe?




13 svar postet i denne tråd vises herunder
2 indlæg har modtaget i alt 2 karma
Sorter efter stemmer Sorter efter dato
Kiggede lige på delphi.about.com (går ud fra det er der du fandt det) det ser ud som om man ikke skal give nogle parametre. Dem bestemmer man vist i selve proceduren. Bare prøv at kald det uden nogen parametre.


-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GED d- s: a--- C++ U? P L+ E? W++ N? o? K- w
O? M? V? PS PE? Y? PGP++ t 5? X+ R tv+ b+ DI? D+
G e-- h! !r y--
------END GEEK CODE BLOCK------



Hej! Jeg fandt denne kode til at få et vindue til at blive i baggrunden.

protected
procedure CreateParams(var Params: TCreateParams); override;

//...

procedure TForm.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
if Assigned(Application.MainForm) then
begin
Params.WndParent := GetDesktopWindow;
Params.Style := WS_CHILD;
end;
end;

Når koden indsættes køres programmet fint, men hvordan aktivere jeg koden...

Jeg gætter på det er noget lignende...

Procedure TForm1.FormCreate(Sender: TObject);
begin
CreateParams(Etellerandet);
end;


men det gider den ikke? Noget der kan hjælpe?


Det er somend simpelt nok. Det er bare:
Fold kodeboks ind/udKode 


Så kan du tilgå de forskellige paramtere med variablen Params

MH.

The-Freak

Livet er for kort til at kede sig.



Det er rigtigt det du gør. Men står der ikke hvilke TCreateParams man kan smide ind som parameter til proceduren??


-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GED d- s: a--- C++ U? P L+ E? W++ N? o? K- w
O? M? V? PS PE? Y? PGP++ t 5? X+ R tv+ b+ DI? D+
G e-- h! !r y--
------END GEEK CODE BLOCK------



procedure TForm1.FormCreate(Sender: TObject);
begin
CreateParams();
end;


det funker ikke:S



Prøv at fjerne (). Hvad siger den i øvrigt af fejl.


-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GED d- s: a--- C++ U? P L+ E? W++ N? o? K- w
O? M? V? PS PE? Y? PGP++ t 5? X+ R tv+ b+ DI? D+
G e-- h! !r y--
------END GEEK CODE BLOCK------



procedure TForm1.FormCreate(Sender: TObject);
begin
CreateParams;
end;
- så siger den "Not enough actual parameters"!

----------------

procedure TForm1.FormCreate(Sender: TObject);
begin
CreateParams(Param);
end;
- så siger den "Undeclared identifier"!



Come on!



Jeg tror bare du ikke skal gøre noget. Ikke kalde funktionen. Tror den kalder sigselv.


-----BEGIN GEEK CODE BLOCK-----
Version: 3.12
GED d- s: a--- C++ U? P L+ E? W++ N? o? K- w
O? M? V? PS PE? Y? PGP++ t 5? X+ R tv+ b+ DI? D+
G e-- h! !r y--
------END GEEK CODE BLOCK------



nej det funker ikke



Hej! Jeg fandt denne kode til at få et vindue til at blive i baggrunden.

protected
procedure CreateParams(var Params: TCreateParams); override;

//...

procedure TForm.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
if Assigned(Application.MainForm) then
begin
Params.WndParent := GetDesktopWindow;
Params.Style := WS_CHILD;
end;
end;

Når koden indsættes køres programmet fint, men hvordan aktivere jeg koden...

Jeg gætter på det er noget lignende...

Procedure TForm1.FormCreate(Sender: TObject);
begin
CreateParams(Etellerandet);
end;


men det gider den ikke? Noget der kan hjælpe?


Det er somend simpelt nok. Det er bare:
Fold kodeboks ind/udKode 


Så kan du tilgå de forskellige paramtere med variablen Params

MH.

The-Freak

Livet er for kort til at kede sig.





Den kode kører fint, men mit vindue ligger sig stadig ikke i baggrunden. Hvordan skal jeg tilgå de forskellige parametere for at få det til at virke?



<< < 12 > >>
t