AW: per buttonklick neues fenster öffnen
Heisst den die Formklasse des Rufers auch TForm1?
|
AW: per buttonklick neues fenster öffnen
Zitat:
|
AW: per buttonklick neues fenster öffnen
In welcher Zeile tritt der Fehler auf? Hast Du den Code einfach per C&P eingefügt oder per Doppelklick auf den Button das Codegerüst erzeugen lassen?
|
AW: per buttonklick neues fenster öffnen
Zeile 34,13
Zuerst habe ich per Doppelklick den Code erzeugen lassen:
Delphi-Quellcode:
Die Codes habe ich hierherauskopiert und dann zwischen begin und end; bei der leeren Zeile eingefügt
procedure TForm1.Button1Click(Sender: TObject);
begin end; |
AW: per buttonklick neues fenster öffnen
Poste mal die komplette Unit (Code)
|
AW: per buttonklick neues fenster öffnen
Hier der Code:
Delphi-Quellcode:
unit Unit1;
{$mode objfpc}{$H+} interface uses Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls; type { TForm1 } TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { private declarations } public { public declarations } end; var Form1: TForm1; implementation {$R *.lfm} { TForm1 } procedure TForm1.Button1Click(Sender: TObject); begin procedure TForm1.OnButtonClick( Sender: TObject); var Form2: TForm2; begin Form2 := TForm2.Create(Self); try Form2.ShowModal; finally Form2.Free; end; end; end; end. |
AW: per buttonklick neues fenster öffnen
Delphi-Quellcode:
Du hast zuviel kopiert und eingefügt.
procedure TForm1.Button1Click(Sender: TObject);
(*begin procedure TForm1.OnButtonClick( Sender: TObject); *) var Form2: TForm2; begin Form2 := TForm2.Create(Self); try Form2.ShowModal; finally Form2.Free; end; (*end;*) end; |
AW: per buttonklick neues fenster öffnen
Zitat:
aber "man" erstellt doch eh nicht alle Fenster sofort, sondern erst wenn sie gebraucht werden :stupid: |
AW: per buttonklick neues fenster öffnen
Also als Anfänger dürfte es am leichtesten sein, wenn man alle Fenster sofort erstellen lässt von der IDE. Hab eich früher auch immer so gemacht.
|
AW: per buttonklick neues fenster öffnen
Das sehe ich genauso.
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:12 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz