Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.08.22;
Скачать: 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 вся ветка

Текущий архив: 2004.08.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.046 c
3-1090972330
AleKo
2004-07-28 03:52
2004.08.22
Проверка на вхождение в операторе WHERE IN


4-1089289927
Elysium
2004-07-08 16:32
2004.08.22
Таймер на 6 миллисекунд


3-1090826570
Valeri
2004-07-26 11:22
2004.08.22
ADOQuery


1-1092028242
Shadow[AN]
2004-08-09 09:10
2004.08.22
Динамическое создание компонентов


1-1092029826
Санёк
2004-08-09 09:37
2004.08.22
Как при CustomAlign использовать уже существующие Align