Скачать: CL | DM;

MouseDown,MouseUp?   Найти похожие ветки 

← →
Ivolg   (2004-08-09 19:44) [0]

Помогите плизз. Вопрос конечно Дурацкий но всё же! Есть такой код:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
begin
if button=mbLeft then
caption:="LeftDown";
if button=mbRight then begin
caption:="RightDown";
end;
end;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
    if button=mbLeft then
    caption:="LeftUp";
    if button=mbRight then begin
    caption:="RightUp";
   
end;
end;
end;
Проиходит какая то чертавщина. Нажимаю на правую появляется LeftUp или LeftDown. Короче одним словом глючит. ПОМОГИТЕ ПОЖАЙЛУСТО! ОЧЕНЬ НАДО!!!!!!!!! СПАСИБО!!!!

---

← →
Мастер ©   (2004-08-09 19:52) [1]

У тебя лишние "end"

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 if button=mbLeft then caption:="LeftDown";
 if button=mbRight then caption:="RightDown";
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 if button=mbLeft then caption:="LeftUp";
 if button=mbRight then caption:="RightUp";
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c