Deutsches Lazarusforum

Ich habs mit nem zweiten Bild genau so wie beim ersten, eigentichen Hintergrundbild, gemacht. Da funktionierts :shock:

Ich verstehs nicht.

Image:=TImage.Create(Self);
NochmalImage:=TImage.Create(Self);
Image.Stretch:=True;
NochmalImage.Stretch:=False;
Image.Picture.LoadFromFile('img\bgimg ...

Nee nee. Das ".Panel" in den Schleifen und Arrays, kommt nur zustande, weil ich mal statt TNotebook ein TPageControl hatte mit immerein FulllSize Panel drauf.. Wollte den Code bloß nicht ändern

Michl hat geschrieben:Wenn Page1 angezeigt wird, wenn Du das Programm startest, sollte der Code so funktionieren.

Funktioniert aber nicht..

Hab ich das gemacht?
procedure TForm1.FormCreate(Sender: TObject);
var
i:Integer;
begin
Image:=TImage.Create(Self);
Image.Stretch:=True;
Image.Picture.LoadFromFile('img\bgimg.jpg'); //Hier das Hintergrundbild laden
Image.Width:=Page1.ClientWidth;
Image.Height:=Page1.ClientHeight;
Image ...

Jo, läuft
Danke man das spart echt Speicher

Aber beim FormCreate sitz ich noch aufm Schlauch. Bei FormCreate wird eine Seite des TNotebooks schon angezeigt. Und da soll das Bild auch schon rein. Habs versucht.. funzt aber nich

(Er gibt mir dann eine Fehlermeldung in der control.inc zurück:)

begin
{$IFDEF CHECK_POSITION}
if CheckPosition(Self) then
DebugLn('[TControl.SetWidth] ',Name,':',ClassName,' ',dbgs(Value));
{$ENDIF}
if csLoading in ComponentState then // Hier der Fehler
begin
FReadBounds.Right ...

Hey Michl,

danke für deinen Denkanstoß.
Deine Prozedur beim FormCreate funktioniert auch noch. Aber beim PageWechseln haperts. Ich gebe mal den Code dazu

procedure TForm1.FormCreate(Sender: TObject);
var
i:Integer;
Image:TImage;
begin
FPanelArray[0].Panel:=Page1;
FPanelArray[0].MenuItem:=MI ...

Vielleicht hilft Euch das etwas auf die Sprünge (mich nicht so wirklich :D ) :

In der Unit Graphics gibt es proceduren und propertys namens
- SetTransparent
- GetTransparent und
- TransparentColor

Ich glaube schon, dass es etwas tiefgründiger ist, dies ganze hier. Aber ich als FPC Einsteiger.. das ...

Hallo liebes Forum,

ich habe da mal eine Frage dem TNotebook betreffend.
Meine Hauptform ist auf einem TNotebook aufgebaut und habe auch um die 80 Seiten (möchte also nicht mehr umbauen auf z.B. TPageControl). Und man kann bekanntlich ja nur über den OI die Farbe des Hintergrundes vom TNotebook ...

OK bin alle Schritte durchgegangen. Jetzt hats geklappt. Der einzige Fehler, den ich gemacht hatte, war, zwei Anführungszeichen in der Batch zu vergessen.

Vorher: Nachher: Sry für dieses triviale Versehen

Hab ja nicht behauptet, dass das so nicht gänge (nur eben nicht *.msi direkt), eben getestet: procedure TForm1.Button1Click(Sender: TObject);
var
P:TProcess;
begin
P:=TProcess.Create(Nil);
P.Executable:='C:\Windows\System32\msiexec.exe';
P.Parameters.Add('-i');
P.Parameters.Add('MSInstaller ...

Ja, habe ich. Habe auch noch nach weiterem gesucht.
Aber die msi datei kann ich so auch ganz normal öffnen, per Doppelklick, als Administrator usw. Das ist alles in Ordnung. Meine Frage ist nur, kann ich dies auch irgendwie über Lazarus öffnen, in dem Programm, was ich schreibe?

Habs mit ShellExecute ausprobiert.

Passiert rein gar nichts
Oder ist dort was falsch??

Hallo liebes Forum,

ich bin auf ein Problem gestoßen, was mich etwas wundert.. Nämlich:
Wenn ich ein Befehl in einem ButtonClick-Event namens

SysUtils.ExecuteProcess( UTF8ToSys( 'MSInstaller.msi'), '''' , []);


eingebe, ich das Programm dann kompiliere und ausführe, erscheint die Meldung ...

Entschuldige bitte, hab so viel gesucht, dass ich ehrlich gesagt nicht mehr auf deinen Beitrag geschaut hab, als ich drauf geantwortet hab. Ich hab so viel anders gelesen und gefunden.

Habe auch den Beitrag dementsprechend abgeändert.

Lesen kann ich