Что-то типо гаджета на рабочий стол Win 7

[abzhapparovmaxat]

Мне кажется, что это свойство только для чтения Хэндла, а не для присваиваинеия
Выдало вот такую ошибку
[DCC Error] Unit1.pas(48): E2129 Cannot assign to a read-only property

Сорок восьмая строчка кода:
48 Form1.Parent.Handle := z

[Человек_Борща]

Думаю, надо посмотреть в эту сторону:
http://delphi-faq.zoxt.net/161.htm

Далее учесть размеры и кол-во элементов(гаджетов) в этом окне, и относительно их "размерить" своё окно.

[abzhapparovmaxat]

А что можете сказать на счет второго вопроса?

2) Приведите пожалуйста полный пример кода который динамически создает две кнопки и создает событие ОнКлик для каждой кнопки с разными действиями ???

[Человек_Борща]

Вот так:

procedure SomeProc0(Sender: TObject);
begin

end;

procedure SomeProc1(Sender: TObject);
begin

end;

brocedure MakeButtons;
var
  Btns:array[0..1] of TButton;
begin
//run-time button 1
  Btns[0]:=TButton.Create(nil);
  Btns[0].Parent:=Form1;
  Btns[0].Left:=< положение слева на право, на форме>;
  Btns[0].Top:=<Плоложение сверху-вниз, на форме>;
  Btns[0].Height:=<Высота>;
  Btns[0].Width:=<Ширина>;
  Btns[0].Caption:='Button1';
  Btns[0].OnClick:=SomeProc1;

//run-time button 2
  Btns[1]:=TButton.Create(nil);
  Btns[1].Parent:=Form1;
  Btns[1].Left:=< положение слева на право, на форме>;
  Btns[1].Top:=<Плоложение сверху-вниз, на форме>;
  Btns[1].Height:=<Высота>;
  Btns[1].Width:=<Ширина>;
  Btns[1].Caption:='Button2';
  Btns[1].OnClick:=SomeProc2;
end;

[abzhapparovmaxat]

В сети я так и нашел, думаю чего то я не знаю но выдает вот такую ошибку на этих строчках
46 Btns[0].OnClick:=SomeProc0;
56 Btns[0].OnClick:=SomeProc1;

[DCC Error] Unit1.pas(46): E2009 Incompatible types: 'method pointer and regular procedure'
[DCC Error] Unit1.pas(56): E2009 Incompatible types: 'method pointer and regular procedure'

[Человек_Борща]

опять мой фэил с указателями.
исправь:

  Btns[0].OnClick:=@SomeProc1;
  Btns[1].OnClick:=@SomeProc2;

[abzhapparovmaxat]

52 Btns[0].OnClick := @SomeProc1;
62 Btns[0].OnClick := @SomeProc2;

[DCC Error] Unit1.pas(52): E2010 Incompatible types: 'TNotifyEvent' and 'Pointer'
[DCC Error] Unit1.pas(62): E2010 Incompatible types: 'TNotifyEvent' and 'Pointer'
Уже все перепробовал((( Где ошибка???

[Аватар]

Уберите @, он там сто лет не нужен. И SomeProc1 должен форме принадлежать, как и SomeProc2

procedure Form1.SomeProc1(Sender: TObject);

[abzhapparovmaxat]

Без них выдает другую ошибку, прочитайте выше.

[Человек_Борща]

abzhapparovmaxat,

Сообщение от Аватар

И SomeProc1 должен форме принадлежать