Нужен наглядный пример создания формы в рантайме

← →
Арбузов (2005-02-16 23:32) [0]

с винапи не знаком, все формы проектирую в дизайнтайме, рантайм использую только для сплэш-форм, но вот понадобилось сделать форму в рантайме, но форма должна быть сложной, т.е. не просто пара лэйблов и рисунок, а взаимодействующие контролы (едиты+баттоны)....если есть у кого пример, пришлите на мыло kap-viktor[dog]yandex.ru

заранее спасибо

← →
Sphinx (2005-02-16 23:44) [1]

А в чем проблема то?
Почему нельзя спроектировать и отображать как сплеши?

Form3 := TForm3.Create(Application); Form3.Show;

и работай...

← →
Арбузов (2005-02-16 23:50) [2]

Sphinx (16.02.05 23:44) [1]

а нажатия на баттоны?
вообще не понимаю как это реализовать :о(
и как вообще обращаться к свойствам эдитов?
form.edit1.text - так ведь не получится

← →
AlterEgo of WondeRu © (2005-02-16 23:56) [3]

но форма должна быть сложной
)))) Повесим мы тебе значок {LMD}, пока ты не купишь себе книжку по Делфи!

← →
Арбузов (2005-02-17 00:06) [4]

AlterEgo of WondeRu © (16.02.05 23:56) [3]

да у меня куча книжек по делфи, всё перерыл, весь яндекс перекопал, ничего подобного не нашёл
если не можешь ничего более умного написать, то не стоит себя утруждать этим вообще
если ты себя настолько умным считаешь, то почему не даёшь пример?
подумаешь немного некрасиво выразился, а с кем не бывает?

← →
AlterEgo of WondeRu © (2005-02-17 00:08) [5]

Арбузов (17.02.05 0:06) [4]
подумаешь немного некрасиво выразился, а с кем не бывает?

да я к чему и призываю: "Пишите вопрос правильно!!! Что дано в задаче? Что нада найти?"

← →
Арбузов (2005-02-17 00:10) [6]

но форма должна быть сложной, т.е. не просто пара лэйблов и рисунок, а взаимодействующие контролы (едиты+баттоны)

что тут не понятно? :о)

← →
Anatoly Podgoretsky © (2005-02-17 00:11) [7]

Арбузов (16.02.05 23:50) [2]
Точно также, но только TButton.Create

← →
AlterEgo of WondeRu © (2005-02-17 00:12) [8]

Арбузов (17.02.05 0:10) [7]
но форма должна быть сложной, т.е. не просто пара лэйблов и рисунок, а взаимодействующие контролы (едиты+баттоны)

что тут не понятно? :о)

пора переквалифицироваться мне в повара, т.к. твой сверх понятный вопрос я не понимаю!!!

А если по хорошему, то начнем: чего ты вообще пишешь?

Тебе все равно надо книжки почитать...

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } procedure OnBtnClick(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var Form: TForm; Btn: TButton; begin Application.CreateForm(TForm, Form); try Form.FormStyle := fsNormal; Form.Position := poScreenCenter; Form.Width := 300; Form.Top := 150; Btn := TButton.Create(Form); Btn.Left := 10; Btn.Top := 10; Btn.Width := 60; Btn.Height := 20; Btn.Caption := "Click me!"; Btn.OnClick := OnBtnClick; Btn.Parent := Form; Form.ShowModal; finally Form.Free; end; end; procedure TForm1.OnBtnClick(Sender: TObject); begin ShowMessage("Вау!"); TForm((Sender as TButton).Parent).Close; end; end.

5 минут.

← →
Арбузов (2005-02-17 00:22) [11]

блин, всё отбой, всё сам догнал :о)

Арбузов (17.02.05 0:22) [11]
блин, всё отбой, всё сам догнал :о)

Вот в следующий раз сам и догоняй.

Нужен наглядный пример создания формы в рантайме Найти похожие ветки