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.

[Michi003]

Zitat:

Zitat von Chemiker

Hallo Michi003,

unter Menü-Punkt:

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


Bis bald Chemiker

gibts bei mir nicht :|

[Michi003]

Zitat:

Zitat von 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.

Zitat:

[Fehler] Unit112.pas(64): Undefinierter Bezeichner: 'TUnit112Box'
[Warnung] Unit112.pas(124): Konstante 0 wurde zu NIL konvertiert
[Warnung] Unit112.pas(162): Konstante 0 wurde zu NIL konvertiert
[Fataler Fehler] netradio1.dpr(12): Verwendete Unit 'Unit112.pas' kann nicht compiliert werden

[Chemiker]

Hallo Michi003,

in dem Zusammenhang währe es wichtig mit welcher Delphi Version Du arbeitest.

Bis bald Chemiker

[Michi003]

Delphi 7 (Build: 4.453)

[Chemiker]

Hallo Michi003,

Datei
….Neu
…….Weitere
………..Formulare

Bis bald Chemiker

[Michi003]

Ja schön und gut aber wie Hilft mir das weiter?
ich habe das jetzt z.B Info Fenster genommen ist im grund genommen das selbe wie ich auch mit meinem neuem Formular gemacht habe...
Wo liegt jetzt der unterschied?

[Chemiker]

Hallo Michi003,

Du bekommst also immer noch die Fehlermeldungen?


Bis bald Chemiker

[Michi003]

Wie Programmiere es ich nun so ein das ich über mein Button die Info anzeige, sich öffnet?

[Luckie]

Dsa haben wir dir doch auf der ersten Seite schon mindestens dreimal erklärt. wo ist jetzt noch dein Problem?

[Chemiker]

Hallo Michi003,

das steht doch in #8. Unit vom Info-Fenster(im Beispiel: About) im Hauptprogramm einbinden unter uses. Auf den Button des Hauptforms doppelklicken und im Ereignis dann:
AboutBox.ShowModal; eintragen. Wobei AboutBox der Name des Info-Formulars ist.

Bis bald Chemiker

[Michi003]

kann mal bitte einer ein Projekt posten?!
Ich raffe es ehrlich gesagt voll nicht..

[AlexII]

Micha in dem InfoFenster arbeitet man genau so wie im Form. :thumb:

[Chemiker]

Hallo Michi003,

was sollen wir den Posten? Es steht doch schon alles in diesen Beiträgen.

1. Neues Project anlegen
2. Info-Form aus der Objectgalarie holen.
3. InfoUnit im Hauptform unter uses eintragen: About
4. Button auf Form1 setzen (Das Hauptform)
5. Doppel-Click auf den Button
6. Im Ereignis: AboutBox.ShowModal; eintragen
7. <Project speichern unter> im Menü Datei wählen
7.a. Neuer Ordner anlegen (z.B.: InfoDemo)
7.b. Unit des Hauptforms unter uInfoFensterDemo speichern
7.c. Unit von Infoforms unter About speichern
7.d Project unter DemoProject speichern.
8. CTRL-F9 drücken es wird kompiliert
9. Kein Fehler dann F9 Programm starten.

Bis bald Chemiker

[p80286]

es gibt Leute, die haben eine Engelsgeduld!

Wo kann man das kaufen?
Ich hätte auch gerne 2 KG davon.

Gruß K-H

[Chemiker]

Hallo p80286,

das lernt man hier im Forum.

Bis bald Chemiker