Авторизация

Логин: Пароль:
Регистрация Забыли свой пароль?

Как сделать свою кнопку?

Страницы: 1
Как сделать свою кнопку?
#1
20.09.2010 21:49:41
Как сделать в Дельфи свою кнопку, чтобы вставить свои картинки для отображения нажатой и не нажатой клавиш?
 
 
#2
21.09.2010 14:13:36
короче сделал обычную картинку, а на события onMouseUp и OnMouseDown повесил такие процедуры как,
Код
procedure TForm1.ExitButtonImMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  with ExitButtonIm do
  begin
    left:=left+1;
    top:=top+1;
  end;
end;

procedure TForm1.ExitButtonImMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  with ExitButtonIm do
  begin
    left:=left-1;
    top:=top-1;
  end;
end;


В итоге при нажатии на такую кнопку она смещается на 1 пиксель вниз и вправо, а при отжатии становится на место
Изменено: rozpants - 21.09.2010 14:14:05
 
 
#3
11.11.2010 06:06:20
Короче посмотрите уроки Макрушина - там есть видеоурок по созданию сложной кнопки. smile;)
 
 
#4
11.11.2010 07:29:40
короче мне и простая пойдет)
 
 
 
Страницы: 1
Читают тему (гостей: 1, пользователей: 0, из них скрытых: 0)