Programm Infos

[Michi003]

Hallo,
ich möchte gerne eine Programm Info erstellen habe mir da auch schon etwas vorgestellt blos Funk. es nicht so wie ich das will...
Undzwar habe ich in meinem Projekt eine weitere "ebene - Form" auf gemacht und da mein "Icon - Logo" und etwas Text rein gemacht darin befindet sich noch ein "Okey" button der das ganze wieder schließt.
Nun soweit so gut das Funk. auch alles bis darhin.

Nun weiß ich nicht wie ich diese zweite "ebene" mit meiner ersten Verknüpfen kann.
Wie komme ich es hin das ich auf einen Button Klick und dann diese "Zweite Ebene" sich öffnet...?

[Moyyer]

Hi Michi003,

zunächst muss du die beiden Forms miteinander "verbinden". In der Haupt-Form trägst du unter "uses" den Unit-Namen der Info-Form ein. Das gleiche muss auch in der Info-Form geschehen, jedoch an einer anderen Stelle:

Code:

implementation

uses Haupt_Unit;

{$R *.dfm}

Die Befehle damit sich das Info-Form öffnet könnten wiefolgt lauten:

Code:

Haupt_Form.Enabled := False;
Info_Form.Visible := True;
Info_Form.SetFocus;

Und umgekehrt fürs Schließen.

Code:

Haupt_Form.Enabled := True;
Info-Form.Visible := False;
Haupt_Form.SetFocus;

Mfg Moyyer

P.S. In der Forumssuche hättest du sicher auch etwas finden können.

[Luckie]

Was soll dass denn? Eine einfaches

Delphi-Quellcode:

Form2.Show;

oder

Delphi-Quellcode:

Form2.ShowModal;

reicht völlig aus.

[s.h.a.r.k]

wie luckie schon angedeutet hat sind diese befehle etwas besser. ich empfehle dir sogar den zweiten, also das showmodal, da dann nur das eine fenster fokusiert ist und kein anderes deiner anwendung mehr anklickbar ist. somit muss der user diesen dialog beenden und das andere fenster erhält automatisch den fokus.

schau dir diesen befehl einfach mal in der hilfe an! ist der beste weg ;)

[Chemiker]

Hallo Michi003,

in der Objektgalerie gibt es ein Info Fenster: Allgemeines Info-Fenster. Das kann man zu seinem Project hinzufügen.
Anschließend kann man im Haupt-Form einen Button anlegen.
Mit :

Delphi-Quellcode:

procedure TfrmHauptForm.btnInfoFensterClick(Sender: TObject);
begin
  AboutBox.ShowModal;
end;

wird das Info-Form aufgerufen.

Sinnvollerweise wird ein Info-Form aber erst zu Laufzeit, also wenn es angezeigt werden soll erzeugt und nach dem schließen wieder zerstört.

Bis bald Chemiker

[Michi003]

Scheinbar mache ich etwas falsch den es geht nicht =(

Delphi-Quellcode:

implementation
Unit112.ShowModal;

Delphi-Quellcode:

implementation
Unit5.ShowModal;

Beide Cods gehen nicht...

[Michi003]

Zitat:

Zitat von Chemiker

Hallo Michi003,

in der Objektgalerie gibt es ein Info Fenster: Allgemeines Info-Fenster. Das kann man zu seinem Project hinzufügen.
Anschließend kann man im Haupt-Form einen Button anlegen.
Mit :

Delphi-Quellcode:

procedure TfrmHauptForm.btnInfoFensterClick(Sender: TObject);
begin
  AboutBox.ShowModal;
end;

wird das Info-Form aufgerufen.

Sinnvollerweise wird ein Info-Form aber erst zu Laufzeit, also wenn es angezeigt werden soll erzeugt und nach dem schließen wieder zerstört.

Bis bald Chemiker

Wo genau finde ich das?
habe bei mir oben in der Leiste nachgesehen ist aber nichts dabei

[Chemiker]

Hallo Michi003,

du muss den Namen des Form nehmen und die Unit unter uses eintragen.

Delphi-Quellcode:

unit About;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls;

type
  TAboutBox = class(TForm)
    Panel1: TPanel;
    ProgramIcon: TImage;
    ProductName: TLabel;
    Version: TLabel;
    Copyright: TLabel;
    Comments: TLabel;
    OKButton: TButton;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  AboutBox: TAboutBox;  // Name des Froms!

implementation

{$R *.dfm}

end.

Delphi-Quellcode:

unit uInfoFensterDemo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, About;

type
  TfrmHauptForm = class(TForm)
    btnInfoFenster: TButton;
    procedure btnInfoFensterClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  frmHauptForm: TfrmHauptForm;

implementation

{$R *.dfm}

procedure TfrmHauptForm.btnInfoFensterClick(Sender: TObject);
begin
  AboutBox.ShowModal;
end;

end.

Bis bald Chemiker

[Chemiker]

Hallo Michi003,

unter Menü-Punkt:

Datei
..Neu
…..Weitere
……..Delphi-Projekte
………… Delphi-Dateien


Bis bald Chemiker

[Luckie]

Zitat:

Zitat von Michi003

Scheinbar mache ich etwas falsch den es geht nicht =(

Delphi-Quellcode:

implementation
Unit112.ShowModal;

Delphi-Quellcode:

implementation
Unit5.ShowModal;

Beide Cods gehen nicht...

Ich bin mir ziemlich sicher, dass die IDE eine entsprechende Fehlermeldung ausgeben wird. da wir keine Hellseher sind, wäre es sehr hilfreich, wenn du uns die nennen würdest. Und wenn du unter "geht nicht" etwas anderes verstehst, solltest du das etwas ausführlicher erläutern.