formular ist verschwunden

[Grumble]

hi,

irgendwie ist bei mir zur designzeit das formular verschwunden, ich kann keine objekte mehr draufwerfen oder eigenschaften aendern... selbst wenn ich in -> ansicht -> formulare die form auswaehle wird sie mir nicht dargestellt... das prog selbst laeuft noch wie vorher...
hat jemand 'nen tip?

[Nils_13]

Hast du delphi/computer schon neugestartet ? Manchmal passieren delphi wirklich komische Fehler.

[Matze]

Hi!

Meinem Informatiklehrer ist mal der Fehler unterlaufen, dass er Top und Left der Form im tausender Bereich hatte und im OnCreate das Formular positioniert hat. Wir wunderten uns auch alle, wo denn zur Designzeit das Formular blieb (er sich übrigens auch).

Es muss bei dir natürlich nicht daran liegen, aber dies wäre auch eine Möglichkeit, woran es liegen könnte.

[Grumble]

ein neustart brachte nix

im oncreate habe ich

Delphi-Quellcode:

  Screen.Cursors[crzin] := LoadCursorFromFile('zoomin.cur');
  Screen.Cursors[crzout] := LoadCursorFromFile('zoomout.cur');

vielleicht liegts an diesen cursor resourcen ??

[Grumble]

hab das problem entdeckt... es lag hieran:

Delphi-Quellcode:

implementation

{$R *.dfm
$R zoomin.res
$R zoomout.res}

nun kann ich das wieder aendern nach

Delphi-Quellcode:

{$R *.dfm}
//$R zoomin.res
//$R zoomout.res

und es ist wieder da... nunja komischerweise auch die neuen mauszeiger

[turboPASCAL]

Zitat von Grumble:

Delphi-Quellcode:

implementation

{$R *.dfm
$R zoomin.res
$R zoomout.res}

Neue Schreibweise oder Tippfehler ? Normalerweise macht man es so:

Delphi-Quellcode:

{$R *.dfm}
{$R zoomin.res}
{$R zoomout.res}

Zitat von Grumble:

und es ist wieder da... nunja komischerweise auch die neuen mauszeiger

Ja, denn du lädst die Cursor aus der .cur-Datei und nicht aus der in dienem Programm eingebundenen Resource.

Zitat von Grumble:

Screen.Cursors[crzin] := LoadCursorFromFile('zoomin.cur');

Um die Cursor'e aus der Resource zu laden:

Delphi-Quellcode:

const
  crMyCursor = 5;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Screen.Cursors[crMyCursor] := LoadCursor(HInstance, 'NewCursor');
  Cursor := crMyCursor;
end;