Текущий архив: 2006.08.20;
Скачать: CL | DM;
Вниз
Form.Caption не меняется. Найти похожие ветки
← →
Alral © (2006-07-30 22:49) [0]У меня вопрос: Из-за чего может быть такое,что заголовок формы(Form1.caption) не меняется, когда я в теле программы ввожу Form1.Caption:="zagolovok", он остаеся таким, какой стоит в Object Inspector в графе Caption. Подскажите плз.
← →
Gydvin © (2006-07-30 23:06) [1]код
← →
Alral © (2006-07-30 23:24) [2]Ja ne mogu poslat ves kod Unit"a, slishkom dlionnii
← →
Gydvin © (2006-07-30 23:25) [3]то кусок где
Form1.Caption:="zagolovok",
← →
Alral © (2006-07-30 23:33) [4]procedure TForm1.New1Click(Sender: TObject);
begin
Memo1.Lines.Clear;
Form1.Caption:="Untitled-Text document";
N:="Untitled";
end;
procedure TForm1.NewHTMLfile1Click(Sender: TObject);
begin
Memo1.Lines.Clear;
N:="Untitled";
Form1.Caption:="Untitled-HTML file";
Memo1.Lines.Add("<HTML>");
Memo1.Lines.Add("<HEAD>");
Memo1.Lines.Add("<TITLE> </TITLE>");
Memo1.Lines.Add(" ");
Memo1.Lines.Add("</HEAD>");
Memo1.Lines.Add("<BODY>");
Memo1.Lines.Add(" ");
Memo1.Lines.Add("</BODY> </HTML>");
Memo1.Tag:=0;
end;
← →
Alral © (2006-07-30 23:34) [5]V Object Inspector stoit Text Editor, v okne toze, Form1.Caption:="Untitled-Text document"; i t.d. programma ignoriruet.
← →
Gydvin © (2006-07-30 23:40) [6]Запости всю юниту
← →
Alral © (2006-07-30 23:41) [7]ne ponjal, chto imeetsja vvidu "zaposti"?
← →
Gydvin © (2006-07-30 23:42) [8]
> Alral © (30.07.06 23:33) [4]
У меня работает
← →
Gydvin © (2006-07-30 23:43) [9]НУ здесь опубликуй
← →
Alral © (2006-07-30 23:45) [10]unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ActnList, Menus, StdCtrls, ComCtrls, Printers, ExtActns,
StdActns;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
File1: TMenuItem;
Create1: TMenuItem;
Open1: TMenuItem;
Save1: TMenuItem;
Saveas1: TMenuItem;
Print1: TMenuItem;
Exit1: TMenuItem;
Edit1: TMenuItem;
Undo1: TMenuItem;
Cut1: TMenuItem;
Copy1: TMenuItem;
Paste1: TMenuItem;
Help1: TMenuItem;
OpenDialog1: TOpenDialog;
SaveDialog1: TSaveDialog;
PrintDialog1: TPrintDialog;
FontDialog1: TFontDialog;
FindDialog1: TFindDialog;
ReplaceDialog1: TReplaceDialog;
ActionList1: TActionList;
Memo1: TMemo;
Action1: TAction;
EditUndo1: TEditUndo;
EditCopy1: TEditCopy;
Format1: TMenuItem;
Font1: TMenuItem;
Align1: TMenuItem;
Left1: TMenuItem;
Right1: TMenuItem;
Center1: TMenuItem;
EditPaste1: TEditPaste;
SelectAll1: TMenuItem;
EditSelectAll1: TEditSelectAll;
EditCut1: TEditCut;
Delete1: TMenuItem;
EditDelete1: TEditDelete;
RichEditBold1: TRichEditBold;
RichEditItalic1: TRichEditItalic;
RichEditUnderline1: TRichEditUnderline;
RichEditStrikeOut1: TRichEditStrikeOut;
RichEditBullets1: TRichEditBullets;
RichEditAlignLeft1: TRichEditAlignLeft;
RichEditAlignRight1: TRichEditAlignRight;
RichEditAlignCenter1: TRichEditAlignCenter;
HTMLTegs1: TMenuItem;
Main1: TMenuItem;
HTML1: TMenuItem;
HTML2: TMenuItem;
HEAD1: TMenuItem;
HEAD2: TMenuItem;
TITLE1: TMenuItem;
TITLE2: TMenuItem;
BODY1: TMenuItem;
BODY2: TMenuItem;
ext1: TMenuItem;
H11: TMenuItem;
H12: TMenuItem;
H21: TMenuItem;
H22: TMenuItem;
H31: TMenuItem;
H32: TMenuItem;
H41: TMenuItem;
H42: TMenuItem;
H51: TMenuItem;
H61: TMenuItem;
H62: TMenuItem;
H63: TMenuItem;
Text2: TMenuItem;
BR1: TMenuItem;
P1: TMenuItem;
P2: TMenuItem;
DIV1: TMenuItem;
DIV2: TMenuItem;
CENTER2: TMenuItem;
CENTER3: TMenuItem;
PRE1: TMenuItem;
PRE2: TMenuItem;
Font2: TMenuItem;
FONT3: TMenuItem;
FONT4: TMenuItem;
BASEFONT1: TMenuItem;
B1: TMenuItem;
B2: TMenuItem;
I1: TMenuItem;
I2: TMenuItem;
U1: TMenuItem;
U2: TMenuItem;
T1: TMenuItem;
T2: TMenuItem;
BIG1: TMenuItem;
BIG2: TMenuItem;
SMALL1: TMenuItem;
SMALL2: TMenuItem;
STRONG1: TMenuItem;
STRONG2: TMenuItem;
STRIKE1: TMenuItem;
S1: TMenuItem;
S2: TMenuItem;
SUP1: TMenuItem;
SUP2: TMenuItem;
SUB1: TMenuItem;
SUB2: TMenuItem;
SCRIPT1: TMenuItem;
SCRIPT2: TMenuItem;
VAR1: TMenuItem;
VAR2: TMenuItem;
SPAN1: TMenuItem;
SPAN2: TMenuItem;
NOBR1: TMenuItem;
NOBR2: TMenuItem;
WBR1: TMenuItem;
WBR2: TMenuItem;
BLOCKQUOTE1: TMenuItem;
BLOCKQUOTE2: TMenuItem;
Q1: TMenuItem;
Q2: TMenuItem;
ACRONYM1: TMenuItem;
ACRONYM2: TMenuItem;
CITE1: TMenuItem;
CITE2: TMenuItem;
DFN1: TMenuItem;
DFN2: TMenuItem;
EM1: TMenuItem;
EM2: TMenuItem;
CODE1: TMenuItem;
CODE2: TMenuItem;
KBD1: TMenuItem;
KBD2: TMenuItem;
SAMP1: TMenuItem;
SAMP2: TMenuItem;
LISTING1: TMenuItem;
LISTING2: TMenuItem;
INS1: TMenuItem;
INS2: TMenuItem;
Graphic1: TMenuItem;
IMG1: TMenuItem;
MAP1: TMenuItem;
IMG2: TMenuItem;
MAP2: TMenuItem;
AREA1: TMenuItem;
AREA2: TMenuItem;
TABLE1: TMenuItem;
ADDRESS1: TMenuItem;
ADDRESS2: TMenuItem;
Symbols1: TMenuItem;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
MTradeMark1: TMenuItem;
Spacenbsp1: TMenuItem;
Cent1: TMenuItem;
Pound1: TMenuItem;
Currency1: TMenuItem;
VerticalLine1: TMenuItem;
Paragraph1: TMenuItem;
CopyrightC1: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
RegisteredR1: TMenuItem;
Degree1: TMenuItem;
N11: TMenuItem;
N21: TMenuItem;
N31: TMenuItem;
Micro1: TMenuItem;
Paragraph21: TMenuItem;
Middot1: TMenuItem;
Quarter141: TMenuItem;
Half121: TMenuItem;
Multiply1: TMenuItem;
Divide1: TMenuItem;
APPLET1: TMenuItem;
APPLET2: TMenuItem;
PARAM1: TMenuItem;
OBJECT1: TMenuItem;
OBJECT2: TMenuItem;
COMMENT1: TMenuItem;
COMMENT2: TMenuItem;
HR1: TMenuItem;
MARQUEE1: TMenuItem;
MARQUEE2: TMenuItem;
Forms1: TMenuItem;
List1: TMenuItem;
TABLE2: TMenuItem;
ABLE1: TMenuItem;
R1: TMenuItem;
R2: TMenuItem;
New1: TMenuItem;
NewHTMLfile1: TMenuItem;
AHREF1: TMenuItem;
A1: TMenuItem;
Colors1: TMenuItem;
Blue0000FF1: TMenuItem;
YellowFFFF001: TMenuItem;
RED1: TMenuItem;
Green0080001: TMenuItem;
D1: TMenuItem;
D2: TMenuItem;
COL1: TMenuItem;
COL2: TMenuItem;
H1: TMenuItem;
H2: TMenuItem;
CAPTION1: TMenuItem;
CAPTION2: TMenuItem;
COLGROUP1: TMenuItem;
COLGROUP2: TMenuItem;
BODY3: TMenuItem;
BODY4: TMenuItem;
FOOT1: TMenuItem;
FOOT2: TMenuItem;
HEAD3: TMenuItem;
HEAD4: TMenuItem;
FORM1: TMenuItem;
FORM2: TMenuItem;
INPUT1: TMenuItem;
SELECT1: TMenuItem;
SELECT2: TMenuItem;
OPTION1: TMenuItem;
OPTION2: TMenuItem;
EXTAREA1: TMenuItem;
EXTAREA2: TMenuItem;
DOCKTYPE1: TMenuItem;
META1: TMenuItem;
LINK1: TMenuItem;
N7: TMenuItem;
OL1: TMenuItem;
OL2: TMenuItem;
UL1: TMenuItem;
UL2: TMenuItem;
LI1: TMenuItem;
DL1: TMenuItem;
DL2: TMenuItem;
DT1: TMenuItem;
DD1: TMenuItem;
Frame1: TMenuItem;
FRAMESET1: TMenuItem;
FRAMESET2: TMenuItem;
FRAME2: TMenuItem;
NOFRAME1: TMenuItem;
NOFRAME2: TMenuItem;
IFRAME1: TMenuItem;
BASE1: TMenuItem;
EMBED1: TMenuItem;
Layer1: TMenuItem;
DIV3: TMenuItem;
DIV4: TMenuItem;
LAYER2: TMenuItem;
LAYER3: TMenuItem;
N8: TMenuItem;
STYLE1: TMenuItem;
STYLE2: TMenuItem;
ShortHTMLGuide1: TMenuItem;
About1: TMenuItem;
← →
Alral © (2006-07-30 23:46) [11]procedure Exit1Click(Sender: TObject);
procedure New1Click(Sender: TObject);
procedure Open1Click(Sender: TObject);
procedure Save1Click(Sender: TObject);
procedure Saveas1Click(Sender: TObject);
procedure Font1Click(Sender: TObject);
procedure Print1Click(Sender: TObject);
procedure HTML1Click(Sender: TObject);
procedure HTML2Click(Sender: TObject);
procedure HEAD1Click(Sender: TObject);
procedure HEAD2Click(Sender: TObject);
procedure TITLE1Click(Sender: TObject);
procedure TITLE2Click(Sender: TObject);
procedure BODY1Click(Sender: TObject);
procedure BODY2Click(Sender: TObject);
procedure SCRIPT1Click(Sender: TObject);
procedure SCRIPT2Click(Sender: TObject);
procedure H11Click(Sender: TObject);
procedure H12Click(Sender: TObject);
procedure H21Click(Sender: TObject);
procedure H22Click(Sender: TObject);
procedure H31Click(Sender: TObject);
procedure H32Click(Sender: TObject);
procedure H41Click(Sender: TObject);
procedure H42Click(Sender: TObject);
procedure H51Click(Sender: TObject);
procedure H61Click(Sender: TObject);
procedure H62Click(Sender: TObject);
procedure H63Click(Sender: TObject);
procedure BR1Click(Sender: TObject);
procedure P1Click(Sender: TObject);
procedure P2Click(Sender: TObject);
procedure DIV1Click(Sender: TObject);
procedure DIV2Click(Sender: TObject);
procedure CENTER2Click(Sender: TObject);
procedure CENTER3Click(Sender: TObject);
procedure PRE1Click(Sender: TObject);
procedure PRE2Click(Sender: TObject);
procedure NOBR1Click(Sender: TObject);
procedure NOBR2Click(Sender: TObject);
procedure WBR1Click(Sender: TObject);
procedure WBR2Click(Sender: TObject);
procedure BLOCKQUOTE1Click(Sender: TObject);
procedure BLOCKQUOTE2Click(Sender: TObject);
procedure Q1Click(Sender: TObject);
procedure Q2Click(Sender: TObject);
procedure ACRONYM1Click(Sender: TObject);
procedure ACRONYM2Click(Sender: TObject);
procedure CITE1Click(Sender: TObject);
procedure CITE2Click(Sender: TObject);
procedure DFN1Click(Sender: TObject);
procedure DFN2Click(Sender: TObject);
procedure EM1Click(Sender: TObject);
procedure EM2Click(Sender: TObject);
procedure LISTING1Click(Sender: TObject);
procedure LISTING2Click(Sender: TObject);
procedure INS1Click(Sender: TObject);
procedure INS2Click(Sender: TObject);
procedure NewHTMLfile1Click(Sender: TObject);
procedure FONT3Click(Sender: TObject);
procedure FONT4Click(Sender: TObject);
procedure BASEFONT1Click(Sender: TObject);
procedure B1Click(Sender: TObject);
procedure B2Click(Sender: TObject);
procedure I1Click(Sender: TObject);
procedure I2Click(Sender: TObject);
procedure U1Click(Sender: TObject);
procedure U2Click(Sender: TObject);
procedure T1Click(Sender: TObject);
procedure T2Click(Sender: TObject);
procedure BIG1Click(Sender: TObject);
procedure BIG2Click(Sender: TObject);
procedure SMALL1Click(Sender: TObject);
procedure SMALL2Click(Sender: TObject);
procedure STRONG1Click(Sender: TObject);
procedure STRONG2Click(Sender: TObject);
procedure STRIKE1Click(Sender: TObject);
procedure S1Click(Sender: TObject);
procedure S2Click(Sender: TObject);
procedure SUP1Click(Sender: TObject);
procedure SUP2Click(Sender: TObject);
procedure SUB1Click(Sender: TObject);
procedure SUB2Click(Sender: TObject);
procedure VAR1Click(Sender: TObject);
procedure VAR2Click(Sender: TObject);
procedure SPAN1Click(Sender: TObject);
procedure SPAN2Click(Sender: TObject);
procedure CODE1Click(Sender: TObject);
← →
Alral © (2006-07-30 23:46) [12]procedure CODE2Click(Sender: TObject);
procedure KBD1Click(Sender: TObject);
procedure KBD2Click(Sender: TObject);
procedure SAMP1Click(Sender: TObject);
procedure SAMP2Click(Sender: TObject);
procedure AHREF1Click(Sender: TObject);
procedure A1Click(Sender: TObject);
procedure IMG1Click(Sender: TObject);
procedure IMG2Click(Sender: TObject);
procedure MAP1Click(Sender: TObject);
procedure MAP2Click(Sender: TObject);
procedure AREA1Click(Sender: TObject);
procedure AREA2Click(Sender: TObject);
procedure HR1Click(Sender: TObject);
procedure MARQUEE1Click(Sender: TObject);
procedure MARQUEE2Click(Sender: TObject);
procedure TABLE2Click(Sender: TObject);
procedure ABLE1Click(Sender: TObject);
procedure R1Click(Sender: TObject);
procedure R2Click(Sender: TObject);
procedure COL1Click(Sender: TObject);
procedure COL2Click(Sender: TObject);
procedure D1Click(Sender: TObject);
procedure D2Click(Sender: TObject);
procedure H1Click(Sender: TObject);
procedure H2Click(Sender: TObject);
procedure CAPTION1Click(Sender: TObject);
procedure CAPTION2Click(Sender: TObject);
procedure COLGROUP1Click(Sender: TObject);
procedure COLGROUP2Click(Sender: TObject);
procedure BODY3Click(Sender: TObject);
procedure BODY4Click(Sender: TObject);
procedure FOOT1Click(Sender: TObject);
procedure FOOT2Click(Sender: TObject);
procedure HEAD3Click(Sender: TObject);
procedure HEAD4Click(Sender: TObject);
procedure FORM1Click(Sender: TObject);
procedure FORM2Click(Sender: TObject);
procedure INPUT1Click(Sender: TObject);
procedure SELECT1Click(Sender: TObject);
procedure SELECT2Click(Sender: TObject);
procedure OPTION1Click(Sender: TObject);
procedure OPTION2Click(Sender: TObject);
procedure EXTAREA1Click(Sender: TObject);
procedure EXTAREA2Click(Sender: TObject);
procedure DOCKTYPE1Click(Sender: TObject);
procedure META1Click(Sender: TObject);
procedure LINK1Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure OL1Click(Sender: TObject);
procedure OL2Click(Sender: TObject);
procedure UL1Click(Sender: TObject);
procedure UL2Click(Sender: TObject);
procedure LI1Click(Sender: TObject);
procedure DL1Click(Sender: TObject);
procedure DL2Click(Sender: TObject);
procedure DT1Click(Sender: TObject);
procedure DD1Click(Sender: TObject);
procedure COMMENT1Click(Sender: TObject);
procedure COMMENT2Click(Sender: TObject);
procedure OBJECT1Click(Sender: TObject);
procedure OBJECT2Click(Sender: TObject);
procedure PARAM1Click(Sender: TObject);
procedure APPLET1Click(Sender: TObject);
procedure APPLET2Click(Sender: TObject);
procedure DIV3Click(Sender: TObject);
procedure DIV4Click(Sender: TObject);
procedure LAYER2Click(Sender: TObject);
procedure LAYER3Click(Sender: TObject);
procedure FRAMESET1Click(Sender: TObject);
procedure FRAMESET2Click(Sender: TObject);
procedure FRAME2Click(Sender: TObject);
procedure NOFRAME1Click(Sender: TObject);
procedure NOFRAME2Click(Sender: TObject);
procedure IFRAME1Click(Sender: TObject);
procedure BASE1Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure MTradeMark1Click(Sender: TObject);
procedure Spacenbsp1Click(Sender: TObject);
procedure Cent1Click(Sender: TObject);
procedure Pound1Click(Sender: TObject);
procedure Currency1Click(Sender: TObject);
procedure VerticalLine1Click(Sender: TObject);
procedure Paragraph1Click(Sender: TObject);
procedure CopyrightC1Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure RegisteredR1Click(Sender: TObject);
procedure Degree1Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N21Click(Sender: TObject);
procedure N31Click(Sender: TObject);
procedure Micro1Click(Sender: TObject);
procedure Paragraph21Click(Sender: TObject);
procedure Middot1Click(Sender: TObject);
procedure Quarter141Click(Sender: TObject);
procedure Half121Click(Sender: TObject);
procedure Multiply1Click(Sender: TObject);
procedure Divide1Click(Sender: TObject);
procedure EMBED1Click(Sender: TObject);
procedure STYLE1Click(Sender: TObject);
procedure STYLE2Click(Sender: TObject);
procedure Memo1Change(Sender: TObject);
← →
Alral © (2006-07-30 23:47) [13]private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
SPos: integer;
N: string;
implementation
{$R *.dfm}
procedure TForm1.Exit1Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.New1Click(Sender: TObject);
begin
Memo1.Lines.Clear;
Form1.Caption:="Untitled-Text document";
N:="Untitled";
end;
procedure TForm1.NewHTMLfile1Click(Sender: TObject);
begin
Memo1.Lines.Clear;
N:="Untitled";
Form1.Caption:="Untitled-HTML file";
Memo1.Lines.Add("<HTML>");
Memo1.Lines.Add("<HEAD>");
Memo1.Lines.Add("<TITLE> </TITLE>");
Memo1.Lines.Add(" ");
Memo1.Lines.Add("</HEAD>");
Memo1.Lines.Add("<BODY>");
Memo1.Lines.Add(" ");
Memo1.Lines.Add("</BODY> </HTML>");
Memo1.Tag:=0;
end;
← →
Alral © (2006-07-30 23:47) [14]procedure TForm1.Open1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
OpenDialog1.Title:="Open...";
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
Form1.Caption:=OpenDialog1.FileName+"-Text Editor";
Memo1.Tag:=0;
end;
end;
procedure TForm1.Save1Click(Sender: TObject);
begin
if N="Untitled" then
Saveas1Click(Sender)
else
begin
Memo1.Lines.SaveToFile(Name);
Memo1.Tag:=0;
end;
end;
procedure TForm1.Saveas1Click(Sender: TObject);
var FName: string;
begin
SaveDialog1.FileName:=Name;
FName:=SaveDialog1.FileName;
SaveDialog1.Title:="Save file as...";
if SaveDialog1.Execute then
begin
FName:=SaveDialog1.FileName;
Case SaveDialog1.FilterIndex of
1 : FName:=ChangeFileExt(FName,".doc");
2 : FName:=ChangeFileExt(FName,".txt");
3 : FName:=ChangeFileExt(FName,".rtf");
4 : FName:=ChangeFileExt(FName,".html");
5 : FName:=ChangeFileExt(FName,".java");
end;
end;
Memo1.Lines.SaveToFile(FName);
Form1.Caption:=N;
Memo1.Tag:=0;
end;
procedure TForm1.Font1Click(Sender: TObject);
begin
if FontDialog1.Execute then Memo1.Font:=FontDialog1.Font;
end;
← →
Alral © (2006-07-30 23:48) [15]procedure TForm1.Print1Click(Sender: TObject);
var F: TextFile;
begin
if PrintDialog1.Execute then begin
AssignPrn(F);
Rewrite(F);
Writeln(F, Memo1.Text);
System.CloseFile(F);
end;
end;
procedure TForm1.HTML1Click(Sender: TObject);
begin
Memo1.Text:="<HTML>"+Memo1.Text;
end;
procedure TForm1.HTML2Click(Sender: TObject);
begin
Memo1.Text:=Memo1.Text+"</HTML>";
end;
procedure TForm1.HEAD1Click(Sender: TObject);
begin
SPos := memo1.SelStart + memo1.SelLength;
memo1.SelLength := 0;
memo1.SelStart := SPos;
memo1.SelText := "<HEAD>";
end;
procedure TForm1.HEAD2Click(Sender: TObject);
begin
SPos := memo1.SelStart + memo1.SelLength;
memo1.SelLength := 0;
memo1.SelStart := SPos;
memo1.SelText := "</HEAD>";
end;
procedure TForm1.TITLE1Click(Sender: TObject);
begin
SPos := memo1.SelStart + memo1.SelLength;
memo1.SelLength := 0;
memo1.SelStart := SPos;
memo1.SelText := "<TITLE>";
end;
procedure TForm1.TITLE2Click(Sender: TObject);
begin
SPos := memo1.SelStart + memo1.SelLength;
memo1.SelLength := 0;
memo1.SelStart := SPos;
memo1.SelText := "</TITLE>";
end;
← →
Alral © (2006-07-30 23:50) [16]I tak dalee v stile procedure TForm1.TITLE2Click(Sender: TObject);
begin
SPos := memo1.SelStart + memo1.SelLength;
memo1.SelLength := 0;
memo1.SelStart := SPos;
memo1.SelText := "</TITLE>";
end;
menjaetsja tolko videlennaja chast.
← →
Alral © (2006-07-30 23:51) [17]v samom kontse
procedure TForm1.Memo1Change(Sender: TObject);
begin
Memo1.Tag:=1;
end;
end.
← →
Gydvin © (2006-07-30 23:54) [18]Странно, вроде все нормально, должно работать
← →
Gydvin © (2006-07-30 23:58) [19]Я думал где-то у тя цикл, который насильно выставляет caption
← →
Жуков Олег (2006-07-31 00:00) [20]Поменяй Form1.Caption на просто Caption. И убери создание лишней Form1.
← →
Alral © (2006-07-31 00:19) [21]To, chto zapisano v Object Inspector:
Align: alNone;
AlphaBlend:False;
AlphaBlendValue:255;
Anchors: akLeft, akTop;
autoScroll: true;
autoSize: False;
BiD Mode:bdLeftToRight;
border icons: biSystemMenu, biMinimize, biMaximize;
borderStyle:bdSizeable;
borderWith: 0;
Caption: Text Editor;
...
Constraints:TSizeConstraints;
Ctl3D: True;
Cursor:crDeafult;
DeafultMonitor: dmMainForm;
dockSite: False;
...
enabled: true;
font: TFont;
FormStyle:fsNormal;
Height:540;
HelpContext: 1;
HelpFile: ;
HelpKeyword: ;
HelpType:htContext;
Hint: ;
HorzScrollBar: TControllScrollBar;
Icon: none;
KeyPreview: true;
Left: 295;
Menu:mainMenu1;
Name: Form1;
ObjectMenuItem: ;
OldCreateOrder: False;
ParentBiDiMode; True;
ParentFont: False;
PixelsPerInch: 96;
PopUpMenu: ;
Position: poDesigned;
PrintScale:poProportional;
Scaled: True;
ShowHint: True;
SnapBufer: 10;
Tag:0;
TransparentColor: false;
TransparentColorValue: clBlack;
UseDockManual: True;
VertScrollBar: TControlScrollBar;
Visible: True;
Width:783;
WindowMenu: ;
WindowState: wsNormal.
← →
Alral © (2006-07-31 00:20) [22]To est "sozdanie lishnei Form?"
← →
Alral © (2006-07-31 00:26) [23]Жуков Олег Spasibo, pomglo, stalo rabotat kogda ubral Form1.
← →
Gydvin © (2006-07-31 00:49) [24]Вопрос почему?
> И убери создание лишней Form1
а где?
← →
Desdechado © (2006-07-31 11:39) [25]причина в этом
FORM1: TMenuItem;
Никогда не называй переменные одинаково!
А то сейчас у тебя менялось название пункта меню, а не формы.
← →
Gydvin © (2006-07-31 11:58) [26]
> FORM1: TMenuItem;
Ух ты, а ведь точно. LOL ^)
← →
Alral © (2006-07-31 23:21) [27]:) spasibo, a to ja ne posmotrel na nazvanie Form1.TMenuItem, dumal chto ona u menja pod drugim imenem.
← →
DiamondShark © (2006-07-31 23:40) [28]Этого бы не случилось, если бы ты не писал в методах КЛАССА формы ссылку на конкретный ЭКЗЕМПЛЯР формы.
Страницы: 1 вся ветка
Текущий архив: 2006.08.20;
Скачать: CL | DM;
Память: 0.57 MB
Время: 0.03 c
