Текущий архив: 2005.03.06;
Скачать: CL | DM;

Вниз

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

← →
Арбузов   (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]
но форма должна быть сложной, т.е. не просто пара лэйблов и рисунок, а взаимодействующие контролы (едиты+баттоны)

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

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

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

---

← →
Alexander Panov ©   (2005-02-17 00:18) [9]

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

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.

---

← →
Alexander Panov ©   (2005-02-17 00:19) [10]

5 минут.

---

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

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

---

← →
Alexander Panov ©   (2005-02-17 10:23) [12]

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2005.03.06;
Скачать: CL | DM;

Наверх

Память: 0.49 MB
Время: 0.054 c