| Class TMainForm (unit Stickymn) |
TForm
| Constructors |
| Functions |
procedure CutItemClick(Sender: TObject);
procedure FileExitItemClick(Sender: TObject);
procedure FileNewItemClick(Sender: TObject);
procedure FileOpenItemClick(Sender: TObject);
procedure FileSaveItemClick(Sender: TObject);
procedure Minimizeall1Click(Sender: TObject);
procedure PasteItemClick(Sender: TObject);
procedure Print1Click(Sender: TObject);| 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;