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;

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