Как сделать рисовалку компонентов
| С первого взгляда вам покажется сложным сделать программу которая рисует компонентами, но это очень легко.
Для начала создайте форму и киньте компонент edit. Дальше зайдите в обработчик событий формы OnMouseDown и напишите следующий код ниже.
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
btn: TButton;
begin
btn:= TButton.Create(Form1);
btn.Parent:=Form1;
btn.Caption:=edit1.text;
btn.Top:=(y);
btn.Left:=(x);
btn.Width:=(x);
btn.Height:=(y);
end;
end.
Разберём код.
btn: TButton;-делаем компонент который вам нужен в нашем случае это кнопка.
btn:= TButton.Create(Form1);-Создаём кнопку.
btn.Parent:=Form1;-Это свойство отвечает за то на какой форме будет лежать компонент.
btn.Caption:=edit1.text;-Это текст кнопки.
btn.Top:=(y);, btn.Left:=(x);-Это важные два свойства они отвечают за то чтоб в каком месте пользователь кликнул по форме там и появился компонент
btn.Height:=(y), btn.Width:=(x);-А эти два свойства отвечают за то чтоб кнопка была разного размера но вы можете их не писать.
Что-ж отличная прога получилась. Можете отправить её друзьям чтоб они охуели.
|
| Категория: Delphi | Добавил: TURBO-MAX (27.07.2015)
|
| Просмотров: 484
| Рейтинг: 0.0/0 |
