|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Как создать компонент, не помещая его на форму???
Объявляю переменную:
Код:
var Memo1: TMemo; Код:
Memo1.lines.loadfromfile('settings.txt'); N15.checked:=strtobool(Memo1.lines[0]); |
#2
|
|||
|
|||
можно той же, но до этого и visible в false поставить, по идее не долэжен появиться...
что то типа: Код:
memo1:=TMemo.Create(nil); memo1.Visible := false; memo1.Parent := self; memo1.Lines.LoadFromFile('d:\text.txt'); Edit1.Text := memo1.Lines[0]; memo1.Free; |
#3
|
||||
|
||||
А при чем тут Visible? Если он ничейный (Create(nil)) то он вроде и не должен появиться.
Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. |
#4
|
|||
|
|||
я потестил - ругается на отсутствие парента почему то в рантайм
|
#5
|
||||
|
||||
У меня все отлично работает
Вот весь модуль Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; procedure FormCreate(Sender: TObject); procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Memo1: TMemo; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Memo1:=TMemo.Create(nil); Memo1.Visible:=False; Memo1.Lines.LoadFromFile('D:\CGI.txt'); end; procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin Memo1.Free; end; procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text:=Memo1.Lines[StrToInt(Edit2.Text)]; end; end. Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. Последний раз редактировалось The Shadow, 02.06.2008 в 18:10. |
#6
|
|||
|
|||
хм... видимо визибл действительно излишний
и так работает |
#7
|
||||
|
||||
Спасибо!
Но Код:
Memo1.Parent := self; |
#8
|
||||
|
||||
Не знаю =) Я просто скопировал с форума и не посмотрел, но на форме у меня ничего не появилось.
Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. |
#9
|
||||
|
||||
Genry, я так понимаю вам нужна работа со строками? Так для этого есть класс TStringList, говоря простым языком это невизуальный Memo.
Не профи, но и не чайник . D6 - лучше не придумали. Пока. |
#10
|
|||
|
|||
Цитата:
да? странно, у мну 5 и 7 делфи ругались на "Control has no parent window!", а когда поставил парент - перестала. Последний раз редактировалось xchrom, 03.06.2008 в 09:46. |