(Einfach) 2 Fragen

[fortuneNext]

Hallo, ich bin neu beim Delphiprogrammieren und habe da mal ein paar Fragen.

1. Wie kann ich ein Event festlegen, das auftritt, sobald eine Form "VISIBLE" gemacht wird?

Delphi-Quellcode:

procedure FormVisible(Sender: TObject);

Delphi-Quellcode:

procedure TGameWindow.FormVisible(Sender: TObject);
begin
  showmessage('TEST');
end;

funktioniert nicht.


2. Wie kann ich ein Bild in der Laufzeit ändern? Denn man kann ja nicht einfach Wert in den Eintrag PICTURE legen, da dort immer steht (TBitmap).

[SirTwist]

Zitat:

Zitat von fortuneNext

Hallo, ich bin neu beim Delphiprogrammieren und habe da mal ein paar Fragen.

Herzlich willkommen!

Zitat:

Zitat von fortuneNext

1. Wie kann ich ein Event festlegen, das auftritt, sobald eine Form "VISIBLE" gemacht wird?

Geh in den ObjectInspector (normalerweise links), klick dort auf den Reiter "Ereignisse" und mach auf das leere Feld hinter "OnFormShow" einen Doppelklick. Dann wird eine neue Prozedur "TForm1.FormShow" erstellt, die ist genau das, was Du haben möchtest.

Zitat:

Zitat von fortuneNext

2. Wie kann ich ein Bild in der Laufzeit ändern? Denn man kann ja nicht einfach Wert in den Eintrag PICTURE legen, da dort immer steht (TBitmap).

Es müsste (aus dem Gedächtnis) eine Methode "LoadFromFile" geben, wenn also Dein Bild Image1 heißt, solltest Du mit "Image1.LoadFromFile('c:\datei.bmp');" eine neue Datei laden können.

[fortuneNext]

Danke, eine schnelle und sehr hilfreiche Antwort :-D

Mit dem Picture krieg ich allerdings noch nicht ganz hin...

Delphi-Quellcode:

  OwnAvatar.Picture := Arcanis.LoadFromFile('C:\Dokumente und Einstellungen\Tim\Desktop\Verschiedenes\Selbstprogrammiertes\Delphi\Titans\Work\Pictures\Arcanis.bmp');

Diese Zeile verursacht folgenden Fehler:

Zitat:

[Error] mGameWindow.pas(165): Undeclared identifier: 'LoadFromFile'

Hab ich die Syntax falsch verstanden?

[Die Muhkuh]

Delphi-Quellcode:

OwnAvatar.Picture.LoadFromFile('C:\Dokumente und Einstellungen\Tim\Desktop\Verschiedenes\Selbstprogrammiertes\Delphi\Titans\Work\Pictures\Arcanis.bmp');

;)

[fortuneNext]

Aahhh :) Danke !
Damit wären meine Fragen dann geklärt, danke euch! :coder: