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
Tror du skal bruge ExStyle := ExStyle or WS_EX_APPWINDOW; hvor du skifter WS_EX_APPWINDOW ud med det du skal bruge.


-----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------



funker nada



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

Det er rigtigt. Der skal ikke kaldes noget. CreateParams er en virtual method i klassen TForm så den skulle blive kaldt Automatisk. Hvorfor koden så ikke virker er et andet og bedre spg. :) kan det være OS specifikt som så meget andet ?




<< < 12 > >>
t