Текущий архив: 2007.02.04;
Скачать: CL | DM;
Вниз
Программное управление формой Найти похожие ветки
← →
Obormot (2007-01-15 15:21) [0]Здравствуйте, отцы. Скажите пожалста, можно ли управлять набором компонентов, размещенных на форме, из программы, если да, то как? То есть, например, как сделать, чтобы нажав на кнопку у меня в произвольном месте на форме появлялась другая кнопка, или рисунок, например?
Заранее благодарен.
← →
click (2007-01-15 15:24) [1]можно... обормот...
← →
Сергей М. © (2007-01-15 15:31) [2]
> можно ли управлять набором компонентов, размещенных на форме,
> из программы
Можно.
Более того, не существует ни единого способа сделать тоже самое не из программы.
← →
Obormot (2007-01-18 14:55) [3]
> не существует ни единого способа сделать тоже самое не из
> программы.
можно перенести компонент на форму пользуясь палитрой компонентов среды разработки. на стадии разработки проекта.
Бля, к чему такие выебоны я не понимаю? можно было просто сказать, как это сделать? Реально проще самому разобраться..
← →
Virgo_Style © (2007-01-18 15:06) [4]Конечно, проще
← →
Elen © (2007-01-18 15:07) [5]
> То есть, например, как сделать, чтобы нажав на кнопку у
> меня в произвольном месте на форме появлялась другая кнопка
мона :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.
Ясно?
> к чему такие выебоны я не понимаю? можно было просто сказать,
> как это сделать?
Так ты ничего и не спросил. Опиши проблему и получиш вразумительный ответ.
← →
Obormot (2007-01-19 22:21) [6]благодарю
Страницы: 1 вся ветка
Текущий архив: 2007.02.04;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.055 c
