Class TMainForm (unit Stickymn) |
Inherits from
TForm
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
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;
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
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;