Form Create?

[jfheins]

Zitat:

Zitat von rocksoft

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
begin
Form3:=Tform3.Create(nil);  <-- Ohne Variable
Form3.show;
end;

Könnte dies ein grund sein wieso ich die fehler Meldung: Adresse 00000 bekomme?

Danke
Robert

Eigentlich nicht - Es sei denn, du versuchst darin, auf den Owner zuzugreifen ...

[Sharky]

Hai rocksoft,

beschreibe doch einmal was Du ereichen möchtest.
Möchtest Du mit einer Procedure verschiedene Forms anzeigen (übergabe durch parameter) oder etwas ganz anderes?

[GuenterS]

Zitat:

Zitat von jfheins

Nimm mal bei a) folgendes:

Delphi-Quellcode:

with Tform2.create(nil) do
try
  if ShowModal = mrOk then
    // ...
finally
  Free;
end;

Und statt dem Free nimmst noch en Release, sofern Du das in Eventroutinen machst :)

[rocksoft]

Danke Sharky,

so drehe ich mich nicht mehr im kreis :)

was ich erreichen will ist, das ich die Forms bei bedarf erzeuge, benutze und wieder freigebe, die Forms lade ich in LMDFormDisplay, keine modale Forms.

Es kommt da vor das hin und wieder die fehler Meldung: Adresse 00000 kommt und das blöde ist, es ist nicht immer bei der gleiche form, sondern nach zufall, daher wollte ich wissen wie ich es besser, sichere machen kann das diese fehler meldung nicht mehr kommt.

Ich habe 5-6 Forms die immer geladen sind und die andere bei bedarf und gebe die frei mit cafree.

hier mit steuer ich das laden von den Forms:

Delphi-Quellcode:

procedure Tform1.DisplayForm(i: Byte); //LMDFormDisplay VLC
var                                            // ist änlich wie frames   
  tmpc: TForm;
  tmpf: TCustomForm;

begin
  tmpf := fd.ActiveForm;
  if tmpf <> nil then tmpf.Close;

  case I of
   0: begin
       tmpc := Artikel; <---  wir gleich am anfang erzeugt und wird nur am schluss entfernt
      end;
   1: begin
        Form3 := TForm3.Create(nil); <--- bei bedarf
        tmpc := Form3;
      end;
  .... 
  ....
   33: begin
        Form33 := TForm33.Create(nil);<--- bei bedarf
        tmpc := Form33;
      end;
  else
    tmpc := nil;
  end;
  if tmpc <> nil then
  begin
    FD.AddForm(tmpc, true);
  end
  else
    FD.AddForm(Artikel, true);
end;

was kann ich machen?

danke

[Sharky]

Hai rocksoft,

ich habe noch nie mit diesem LFDFormDisplay gearbeitet ;-)
Du möchtest also in deiner MainForm andere Forms anzeigen? Und es wird immer nur eine andere Form gezeigt?
Ich mache das mit einem anderen Lösungsansatz.

Du kannst Dir ja mal das Beispiel im Anhang ansehen. Das arbeit mit den Standardfunktionen von Delphi.
Ich bin mir aber nicht 100% sicher ob es das macht was Du genau möchtest.

[rocksoft]

Hallo Stephan,

ja genau das macht auch LFDFormDisplay auch und ich sehe der aufbau ist fast gleich, daher bin ich der meinung musste es bei mir ohne fehler meldung funktionieren, das komische ist bei mir lauft es 100% nur bei andere nicht, ob es mit AMD zu tun hat?.

Ich werde es mal umstellen mal sehen ob die problem dann weg sind.

Vielen dank es mal an alle für die hilfe.