Reagieren auf Ereignisse meines zur Laufzeit erzeugten Forms

[Pseudemys Nelsoni]

hi,

siehe überschrift, ich habs so erstellt:

Delphi-Quellcode:

  var
    InfoForm: TForm;

Delphi-Quellcode:

  InfoForm := TForm.Create(Application);
  InfoForm.Height := 100;
  InfoForm.Width := 300;
  InfoForm.Color := $00423029;
  InfoForm.Position := poScreenCenter;
  InfoForm.BorderStyle := bsNone;
  InfoForm.AlphaBlendValue := 0;

ich möchte aber nun auf ereignisse reagieren, wie "OnCreate" habs versucht mit "InforForm.OnCreate", aber wie es dann weitergehen würd (ob es überhaupt so geht) weiss ich nicht.
wenn es jemand weiss bitte posten

danke =)

gruss silent

[mirage228]

das sollte gehen
InfoForm.OnCreate := NameDerProzedur; bei manchen prozeduren, die du in ereignissen von Forms verwendest
musst du als Parameter für die Prozedur noch "Sender" nehmen. Bsp:
procedure Prozedur_Fuer_ein_Eregnis(Sender: TObject); ich hoffe das hilft

mirage228

[Pseudemys Nelsoni]

hoi,

danke für die hilfe

klappt bei mir aber irgendwie nicht, hab das so:

Delphi-Quellcode:

procedure AlphaBlendCount(Sender: TObject);
var i: integer;
begin
  InfoTimer.Enabled := True;
  if i <> 255 then
  begin
  i := i + 3;
  InfoForm.AlphaBlendValue := i;
  end
  else InfoTimer.Enabled := False;
end;

und zum aufrufen des timers das:

Delphi-Quellcode:

  with TTimer.Create(InfoForm) do
  begin
    InfoTimer.Enabled := False;
    InfoTimer.Interval := 5;
    InfoTimer.OnTimer := AlphaBlendCount;
  end;

fehlermeldung ist "[Fehler] Unit1.pas(385): Inkompatible Typen: 'Methodenzeiger und reguläre Prozedur'"

[mirage228]

ich glaub des geht so:

InfoTimer := TTimer.Create(InfoForm); <Edit>: Und das brauchste auch das With ... Do net mehr:

Delphi-Quellcode:

    InfoTimer := TTimer.Create(InfoForm); 
    InfoTimer.Enabled := False; 
    InfoTimer.Interval := 5; 
    InfoTimer.OnTimer := AlphaBlendCount;

</edit>

und du solltest die procedure AlphaBlendCount zwischen die anderen Ereignisprozeduren des Forms (über private und public)

und dann musste schreiben

Delphi-Quellcode:

procedure TDasIstDasForm.AlphaBlendCount(Sender: TObject);
var i: integer;
begin
  InfoTimer.Enabled := True;
  if i <> 255 then
  begin
  i := i + 3;
  InfoForm.AlphaBlendValue := i;
  end
  else InfoTimer.Enabled := False;
end;

so sollte es gehen!

mirage228

[Luckie]

Warum erstellst du alles zur Laufzeit? Mach es doch zur Entwurfszeit und schmeiß in Projekt -> Optionen das Formular raus welche zur Laufzeit beim Start erzeugt werden sollen. Und wenn du es dann brauchst erzeugst du nur das Formular dynamisch. Alles was drauf und alles Ereignisse und Prozeduren ist kennt dein Programm schon - keine Sorge.

[Pseudemys Nelsoni]

danke mirage ich versuch das mal ^^

luckie, ich erstelle sie zur laufzeit, weil ich beliebig viele brauche, je nachdem wieviele querys ich hab (irc client)

danke^^

gruss silent