Главная страница
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.46 MB
Время: 0.056 c
3-1090913876
Nikolai_S
2004-07-27 11:37
2004.08.22
Проблема с версиями MDAC


3-1090482264
nik7777
2004-07-22 11:44
2004.08.22
Вопрос по ODBC для Lotus-Notes6


6-1087225787
maxz
2004-06-14 19:09
2004.08.22
Authentication in NMSMTP


14-1091798793
race1
2004-08-06 17:26
2004.08.22
интернет-радио


14-1091439172
}|{yk
2004-08-02 13:32
2004.08.22
Как правильно перевести Handle