![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Программное управление формой [D7, WinXP]
Obormot © (2007-01-15 15:21:00)Здравствуйте, отцы. Скажите пожалста, можно ли управлять набором компонентов, размещенных на форме, из программы, если да, то как? То есть, например, как сделать, чтобы нажав на кнопку у меня в произвольном месте на форме появлялась другая кнопка, или рисунок, например?
Заранее благодарен.
Obormot (2007-01-19 22:21:00) [1]благодарю
Elen (2007-01-18 15:07:00) [2]
> То есть, например, как сделать, чтобы нажав на кнопку у
> меня в произвольном месте на форме появлялась другая кнопка
мона :
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var t:Tbutton;
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
t:=TButton.Create(form1);
t.Caption:='dasdsa';
t.Parent:=form1;
t.Visible:=true;
t.Left:=random(100);
t.Top:=random(100);
end;
end.
Ясно?
> к чему такие выебоны я не понимаю? можно было просто сказать,
> как это сделать?
Так ты ничего и не спросил. Опиши проблему и получиш вразумительный ответ.
Virgo_Style (2007-01-18 15:06:00) [3]Конечно, проще
Obormot (2007-01-18 14:55:00) [4]
> не существует ни единого способа сделать тоже самое не из
> программы.
можно перенести компонент на форму пользуясь палитрой компонентов среды разработки. на стадии разработки проекта.
Бля, к чему такие выебоны я не понимаю? можно было просто сказать, как это сделать? Реально проще самому разобраться..
Сергей М. (2007-01-15 15:31:00) [5]
> можно ли управлять набором компонентов, размещенных на форме,
> из программы
Можно.
Более того, не существует ни единого способа сделать тоже самое неиз программы.
click (2007-01-15 15:24:00) [6]можно... обормот...