Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2006.08.20;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.56 MB
Время: 0.04 c
6-1143200177
MegaVolt
2006-03-24 14:36
2006.08.20
Зависает gethostbyaddr при запущенной аське что делать?

4-1146405087
BOGDAN
2006-04-30 17:51
2006.08.20
Не могу создать иконку с прозрачностью

2-1154067631
mega83
2006-07-28 10:20
2006.08.20
TStringGrid

15-1153553033
Pazitron_Brain
2006-07-22 11:23
2006.08.20
Посоветуйте КПК

3-1150353422
s_t_d
2006-06-15 10:37
2006.08.20
Отображение длинных текстов в DBGrid




Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский