Einzelnen Beitrag anzeigen

DelphiCreak

Registriert seit: 3. Sep 2008
51 Beiträge
 
Delphi 2007 Enterprise
 
#1

Mehrere Formen in ein Formular einbinden funktioniert nicht?

  Alt 11. Jun 2010, 15:48
Guten Nachmittag liebe DP,

ich arbeite mit ein paar Kollegen im Moment an einem Editor, der unter anderem mehrere Dialoge benutzt. Diese sind der Einfachheit halber alle in einer Unit zusammengefasst.
Nun Versuche ich allerdings, eine weitere Form einzubinden, was jedoch irgendwie nicht funktioniert, warum weiß ich nicht. Und genau da liegt mein Problem ^^. Das Aufrufen dieses Formulars führt zu einer Zugriffsverletzung (Acces Violation).
Ich fass hier mal alles zusammen, wie ich das ganze eingebunden habe, und hoffe mal dass jemand von euch den Fehler findet, ich hab ihn in zwei Tagen nicht gefunden.

Der Quelltext des Formulars, die zugehörige Datei heißt PickColorForm.dfm (eigentlich ist ja nur der Header wichtig):
Delphi-Quellcode:
object PickColorForm: TPickColorForm
  Left = 410
  Top = 458
  HorzScrollBar.Visible = False
  AutoScroll = False
  BorderStyle = bsNone
  Caption = 'InputForm'
  ClientHeight = 88
  ClientWidth = 294
  Color = clGreen
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnMouseDown = FormMouseDown
  DesignSize = (
    294
    88)
  PixelsPerInch = 96
  TextHeight = 13
end
Die Deklaration in der zugehörigen .pas Datei:

Delphi-Quellcode:
type
  TPickColorForm = class(TForm)
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
   private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
und dann noch das erzeugen des Formulares in der .dpr Datei:

Application.CreateForm(TPickColorForm, PickColorForm);
Eigentlich müsste es so funktionieren, hat es bei den bisherigen Formen ja auch. Ich hoffe jemand von euch findet den Fehler, danke im Vorraus,

mfg DelphiCreak
Dominik C.
Orientierungslos sieht man mehr vom Leben.
  Mit Zitat antworten Zitat