[ControlRDS]

Не могу сообразить команду в которой изображение из BitBtn, при клике, выводится на нужном Label, и при повторном клике- пропадает.

[robt]

Сообщение от ControlRDS

Не могу сообразить команду в которой изображение из BitBtn, при клике, выводится на нужном Label, и при повторном клике- пропадает.

наверно потому, что Label не выводит картинок?

[Heneken]

Используй Timage вкладка Additional
По обработчику события на клик в BitBtn

Timage.Picture.LoadFromFile('Путь до файла с картинкой такой же как и в BitBtn');

[NumLock]

Сообщение от Heneken

Timage.Picture.LoadFromFile('Путь до файла с картинкой такой же как и в BitBtn');

а так:

Код:

Image1.Picture.Assign(BitBtn1.Glyph);

[Heneken]

И так, вариантов навалом.

[YVitaliy]

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if BitBtn1.Tag=0 then
begin
  BitBtn1.Tag:=1;
  Label1.Width:=BitBtn1.Glyph.Width;
  Label1.Height:=BitBtn1.Glyph.Height;
  Label1.Canvas.Draw(0,0,BitBtn1.Glyph);

end else begin
  BitBtn1.Tag:=0;
  Label1.Canvas.Brush.Color:=Form1.Color;
  Label1.Canvas.rectangle(0,0,Label1.Width, Label1.Height);
end;
end;

Не знаю, будет ли работать, не проверял.