Class TMainForm (unit Stickymn)

Inherits from

TForm

Constructors



Functions

procedure CutItemClick(Sender: TObject);


procedure FileExitItemClick(Sender: TObject);


procedure FileNewItemClick(Sender: TObject);


procedure FileOpenItemClick(Sender: TObject);


procedure FileSaveItemClick(Sender: TObject);

Geachte heer Overbeek, ik heb de oplossing gevonden! Het stickynote heeft OOK een savedialog1, en door het with.

procedure Minimizeall1Click(Sender: TObject);

volgens mij kan dit nu niet meer.

procedure PasteItemClick(Sender: TObject);


procedure Print1Click(Sender: TObject);

========} { - neem de mainform's savedialog1

Properties

Events

Variables

CopyItem : TMenuItem;


CutItem : TMenuItem;


Edit1 : TMenuItem;


File1 : TMenuItem;


FileCloseItem : TMenuItem;


FileExitItem : TMenuItem;


FileNewItem : TMenuItem;


FileOpenItem : TMenuItem;


FileSaveAsItem : TMenuItem;


FileSaveItem : TMenuItem;


FontDialog1 : TFontDialog;


Help1 : TMenuItem;


HelpAboutItem : TMenuItem;


MainMenu1 : TMainMenu;


Minimizeall1 : TMenuItem;


N1 : TMenuItem;


N2 : TMenuItem;


OpenDialog : TOpenDialog;


PasteItem : TMenuItem;


Print1 : TMenuItem;


PrintDialog1 : TPrintDialog;


SaveDialog1 : TSaveDialog;


Window1 : TMenuItem;



Constructors


Functions


procedure CutItemClick(Sender: TObject);


procedure FileExitItemClick(Sender: TObject);


procedure FileNewItemClick(Sender: TObject);


procedure FileOpenItemClick(Sender: TObject);


procedure FileSaveItemClick(Sender: TObject);

Geachte heer Overbeek, ik heb de oplossing gevonden! Het stickynote heeft OOK een savedialog1, en door het with...do statement neemt hij die! De beste oplossing is om de savedialogs in beide formulieren een andere naam te geven, dan kan er nooit onduidelijkheid ontstaan. Maar ja, dit vergeet ik ook nooit meer...


procedure Minimizeall1Click(Sender: TObject);

volgens mij kan dit nu niet meer. Elk formpje moet een eigen menu-balk krijgen - ze zijn nu zelfstandig... eventueel kunt u via screen.forms de notes opvragen. via (screen.forms[i] as tStickyNote).memo1... iets doen. alleen kunt u niet bepalen welk form actief was.


procedure PasteItemClick(Sender: TObject);


procedure Print1Click(Sender: TObject);

========} { - neem de mainform's savedialog1


Properties


Events


Variables


CopyItem : TMenuItem;


CutItem : TMenuItem;


Edit1 : TMenuItem;


File1 : TMenuItem;


FileCloseItem : TMenuItem;


FileExitItem : TMenuItem;


FileNewItem : TMenuItem;


FileOpenItem : TMenuItem;


FileSaveAsItem : TMenuItem;


FileSaveItem : TMenuItem;


FontDialog1 : TFontDialog;


Help1 : TMenuItem;


HelpAboutItem : TMenuItem;


MainMenu1 : TMainMenu;


Minimizeall1 : TMenuItem;


N1 : TMenuItem;


N2 : TMenuItem;


OpenDialog : TOpenDialog;


PasteItem : TMenuItem;


Print1 : TMenuItem;


PrintDialog1 : TPrintDialog;


SaveDialog1 : TSaveDialog;


Window1 : TMenuItem;