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.