Self welche Unit ?

[HomerGER]

das mit den self hab ich geändert - hab den namen der form genommen
nur ist die erste form immer noch anwählbar

ps mal soll auch nicht imer nur code abschreiben - mist
nicht show sondern showmodal - ich dummerchen

[Christian Seehase]

Moin Homer,

doch Show.
Das ist ja gerade der Witz an der Sache, dass sich das erste Formular verhält, als würde aus diesen heraus das zweite per ShowModal geöffnet, ohne dass dieses der Fall ist.
Wenn er self nicht kennt, hast Du es nicht innerhalb einer Methode verwendet. Nur dort gibt es self.

Lies Dir diesen Thread mal in Ruhe durch. Vielleicht wird es dann klarer:

prozedur aufruf und sender

[HomerGER]

nein kein erfolg
wenn ich es of show stelle kann man die andere forn nch anklicken
bei modal dann nicht mehr
ABER
er flacktert wie verrückt (sleep) er zeigt nix an nur die form


so sieht jetzt meine Procedure aus

Code:

//******************************************************************************
//Global
//ProgressBar starten
Procedure ProgressBar_GU(meldung1_s, meldung2_s, icon_s : String; start_i, end_i, ist_i : Integer);
var 
pb_f : TProgressBar_Form;
begin
  pb_f := TProgressBar_Form.Create(nil);
  try 
    ProgressBar_Form.Enabled := False;
    pb_f.ShowModal;  /////////////////////////////////////oder show
    while pb_f.Visible do
    begin
        //sleep(200);

        //Wenn ProgressBar nicht Sichbar dann initialisieren
        if (ProgressBar_Form.Panel1.Visible = False) then
        begin
            ProgressBar_Form.Label1.Caption := '';
            ProgressBar_Form.Label2.Caption := '';
            ProgressBar_Form.Image1.Picture := NIL;
            ProgressBar_Form.Panel1.Visible := True;
        end;

        //Nur wenn Label noch leer, dann erst füllen
        if ((ProgressBar_Form.Label1.Caption = '') AND
            (ProgressBar_Form.Label2.Caption = '')) then
        begin
            ProgressBar_Form.Label1.Caption := Meldung_Lesen_GU(meldung1_s);
            ProgressBar_Form.Label2.Caption := Meldung_Lesen_GU(meldung2_s);
        end;

        //Nur wenn Image noch leer, dann erst füllen
        if (ProgressBar_Form.Image1.Picture.Icon.Empty = True) then
        begin
            ProgressBar_Form.Image1.Picture.Icon := Icon_Lesen_GU(icon_s);
        end;

        //ProgressBar initialiesieren
        ProgressBar_Form.ProgressBar.MinValue := start_i;
        ProgressBar_Form.ProgressBar.MaxValue := end_i;

        //ProgressBar hochzählen
        ProgressBar_Form.ProgressBar.Progress := ist_i;

        if (end_i >= ist_i)  then
        begin
            pb_f.Close;
        end;
        Application.ProcessMessages;
    end; 
  finally 
    FreeAndNil(pb_f);
    ProgressBar_Form.Enabled := True;
  end; 
end;

bei modal nehme ich das fenster bei option bei automatisch raus - dann kommt aber fehler

[Christian Seehase]

Moin Homer,

ich hab' mal Deine Doppelposts gelöscht ;-)

Wenn Du mal die Prozedur Procedure ProgressBar_GU so einbauen würdest

Delphi-Quellcode:

type
  TForm1 = class(TForm) // Ich weiss nicht, wie Dein Hauptformular heisst
    Procedure ProgressBar_GU(....);
  //...


implementation

//...

Procedure TForm1.ProgressBar_GU(.....);
begin
end;

dann könntest Du auch self benutzen.
Das Beispiel von mir funzt eigentlich einwandfrei. Mir ist jetzt nicht ganz klar wieso das bei Dir nicht geht.

Vielleicht könntest Du mal den kompletten Source hier ranhängen, denn ich komm' auch ein wenig mit Deinen Benennungen ins Schleudern.
Wenn pb_f von Typ TProgressBar_Form ist, was ist dann Progressbar_form???

[HomerGER]

Zitat:

Zitat von Christian Seehase

ich hab' mal Deine Doppelposts gelöscht ;-)

danke

Zitat:

Zitat von Christian Seehase

Wenn pb_f von Typ TProgressBar_Form ist, was ist dann Progressbar_form???

blödsinn !?


ich glaub es ist zu spät - sitze schon zulange - werde das tun was ich gleich tun sollte - schlafen, nahrung, frau glücklich machen, deine post's in ruhe lesen, darüber nachdenken und versuchen sie zu verstehen - dann selber denken und erst dann wieder eine frage zu stellen

[negaH]

Delphi-Quellcode:

  TProgressBar_Form.Create(Application);

Gruß Hagen

[HomerGER]

moin christian
hab dir den file als pm geschickt
ich hoffe du kannst es jetzt besser verstehen - du ? kann ich es verstehen ? :wink: