создать TButton с нуля

[xrob]

как я уже понял любой контрол на форме - это окно.
с том числе и обычная кнопка, это окно, имеющее свой handle,
и получающее сообщения от винды.
а имеет ли любое окно Canvas, или это уже добавляется вручную?
вот к примеру так ли работает кнопка?:
1. создается окно
2. это окно начинает получать сообщения от винды
3. когда оно получит сообщение что мышка нажата
(а оно его получит только если мышка будет именно над этим окном, правильно?)
то нарисует изображение нажатой мышки и запустит процедуру OnClick

я примерно представляю как ловить сообщения,
у меня вопрос в том, как создать окно,
и как быть с канвасом?

пытался пошарить в VCL как создаются кнопки,
запутался в иерархии.
ибо TButton с своем Create добавляет только пару строчек и inherited.
его предок - тоже самое, и т.д.

я знаю про CreateWindow,
но не знаю какой там параметр указать, чтоб создалось окно без заголовка.

кому не влом разложите, пожалуйста, по полочкам, как создать TButton с нуля.
и прокоментируйте мой пост, в чем я прав, в чем не прав =)

[Nemez]

Если Вы имеете ввиду динамическое создание объектов, то например так.

procedure TForm1.Button1Click(Sender: TObject);
var
b: TButton;
begin
b:=tbutton.Create(Self);
b.Left:=0;
b.Top:=0;
b.Caption:='New Button';
b.Parent:=Form1;
end;

При нажатии на кпопку появляется новая кнопка на форме с кординатами 0,0.

[Aliens_wolfs]

Создать массив кнопок

private
{TForm}
procedure RunButtonClick(Sender: TObject);
end;

{...}

var
Form1: TForm;
RunButtons: array[1..10] of TButton;

{...}

implementation

{...}

procedure TForm1.RunButtonClick(Sender: TObject);
begin
{Показать событие нажатой кнопки}
ShowMessage('Button' + IntToStr((Sender as TButton).Tag) + ' clicked!');
{Либо по имени отслеживать нажатие}
ShowMessage((Sender as TButton).name + ' clicked!');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i: Byte;
begin
for i := 1 to 10 do
begin
{Создаем кнопки}
RunButtons[i] := TButton.Create(Self);
with RunButtons[i] do
begin
Parent := Form1;
Caption := 'Button ' + IntToStr(i);
Name := 'Button' + IntToStr(i);
Top := i * Height;
Tag := i;
{Передать событие нажатие кнопок}
OnClick := RunButtonClick;
Visible := True;
end;
end;
end;

При нажатии на кнопку появятся 10 кнопок друг над другом, событие нажатия любой из них отслеживается функцией RunButtonClick, работать с ними через эту функцию например
if (Sender as TButton).name = 'Button1' then и какое то действие
if (Sender as TButton).name = 'Button2' then и какое то действие
либо
if (Sender as TButton).caption = 'Button 1' then и какое то действие
if (Sender as TButton).caption = 'Button 2' then и какое то действие
либо
Case (Sender as TButton).tag of
1:и какое то действие
2:и какое то действие
end;

[xrob]

хаха =), спасибо, конечно за внимание, и за отклики,
однако имел в виду совсем другое...
динамическое создание готовых объектов VCL я изучил уже давно.
и так же давно меня перестал устраивать внешний вид этих объектов,
и я занялся созданием своих контролов.
здесь "контролов" следует понимать в очень общем смысле,
т.е. "элементов управления", ибо по принципу действия и организации
мои объекты имеют мало общего с привычными вам "контролами".
я создал неведомую ё***ю систему, переопределил класс формы,
для работы своих компонентов (чуть позже я расскажу что это за система).
и система работала! =)
и прекрасно работала!
до тех пор, пока я не начал использовать TThread...
все пошло наперекосяк =(
мои компоненты благополучно загибались, но стандартные,
так же присутствовавшие на форме продолжали стабильно работать,
программа не висла, висли мои компоненты.
ну и вся эта история навела меня на мысль, что нужно сделать
свои компоненты как стандартные - по принципу окон и сообщений.

под созданием TButton я имел в виду написание своего класса, аналогичного ему,
а не создание экземпляра готового класса VCL =)

[Stilet]

мои компоненты благополучно загибались

А что именно ты в поток вынес?

[JTG]

создать TButton с нуля

Но зачем? Наследуйтесь от TCustomControl и рисуйте что угодно.

до тех пор, пока я не начал использовать TThread

Дайте угадаю, "Canvas does not allow drawing"? У TCanvas есть счётчик блокировок LockCount, но обычно при правильной работе потоков c GUI через synchronize его дёргать не приходится.

[xrob]

в поток я вынес...
а что я вынес?
прога кое-чего скачивает, на это нужно время, и в это время, разумеется окно не должно висеть,
и все кнопочки должны весело подмигивать если водить по ним мышкой.
по мере скачивания прога сообщает одному из компонентов чего она качает,
а он в свою очередь отрисовывает себя на канвасе формы
(у меня все объекты отрисовывают себя на канвасе)
я уже запихнул с синхронизацию все что можно, все обращения к моим компонентам,
но все-равно работает нестабильно.

Да! JTG, "Canvas does not allow drawing", но далеко не каждый раз, что затрудняет отладку.
в основном происходит то, что мои компоненты перестают рисоваться.
программа работает, форму таскаешь, за экран уводишь - канвас стирается и больше не перерисовывается

кстати, у меня еще такой вопрос,
wcx: twndclass;
wcx.lpfnwndproc := @mainwndproc; // адрес оконной процедуры...
как его получить?

есть TForm1.MainWndProc, как я понимаю это procedure of object (?)
как мне получить указатель на эту процедуру, чтоб потом запихать его в wcx.lpfnwndproc ?

[Aliens_wolfs]

Насчет потока.
В потоке нельзя делать прямое обращение к объектам которые делают визуальные действия, будет всегда ошибка или не правильно работать. С ними нужно работать через функции и обращаться к ним с потока желательно методом Synchronize.

На счет функции TForm1.MainWndProc
Посмотри эту ссылку.
http://www.delphisources.ru/pages/fa...only_api2.html

Пример: Поток без синхронизации

type
TForm1 = class(TForm)
...................
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
//функция для потока в TForm1
procedure ThreadsDone(Sender: TObject);
end;

//Поток
TView = class(TThread)
protected
procedure Execute; override;
public
constructor Create; virtual;
destructor Destroy; override;
end;

var
Form1: TForm1;
View: TView; //Имя потока

implementation

{$R *.dfm}

constructor TView.Create;
begin
inherited Create(True);
FreeOnTerminate := True; //Когда поток останавливается он уничтожается сам
resume; //запускаем поток
end;

destructor TView.Destroy;
begin
Terminate;
inherited;
end;

procedure TView.Execute;
begin
//Поток будет работать в функции TForm1
OnTerminate := Form1.ThreadsDone;
//Или так попробовать с вашей функцией если не будет ошибки
OnTerminate := wcx.lpfnwndproc;
end;

procedure TForm1.ThreadsDone(Sender: TObject);
begin
Ваш код
Если идет какой то цикл в потоке то прерывай его например в цикле поставь sleep(10) чтобы не зависал и не грузил процессор
end;

// Пример запуска и остановки потока
procedure TForm1.Button1Click(Sender: TObject);
begin
//Создаем и запускаем поток
View :=TView.Create;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
//Останавливаем поток
View.Terminate;
end;