Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.10.03;
Скачать: [xml.tar.bz2];

Вниз

Медленная отработка сообщений от мышки !   Найти похожие ветки 

 
AlbertHakimov   (2002-09-23 09:03) [0]

Помогите разобраться:
рисую кнопку с помощью WinAPI, навешиваю обработчик на клик от мыши. Кнопка то нажимается, но слишком долго приходится ждать отклика.
/////////////////////////////////////////////////////////////////////////////////////
type
TForm1 = class(TForm)
private
procedure WMLButtonDown(var Message: TWMLButtonDown); message WM_LBUTTONDOWN;
procedure WMLButtonUp(var Message: TWMLButtonUp); message WM_LBUTTONUP;
public
procedure Plot3D(rc:TRect; iArrowUp:Boolean; uFlags:Integer);
procedure TForm1.FormCreate(Sender: TObject);
end;

var
Form1: TForm1;
uFlags : Integer;
rc:TRect;
FrcPlotU :TRect;
implementation

{$R *.DFM}

procedure TForm1.Plot3D(rc:TRect; iArrowUp:Boolean; uFlags:Integer);
begin
With Form1 do begin
DrawFrameControl(GetDC(Handle),rc,DFC_SCROLL,DFCS_SCROLLUP or uFlags);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var FtxtHeight :Integer;
begin
uFlags:=0;
FtxtHeight := canvas.TextHeight("A");
with Form1 do begin
FrcPlotU:= Rect(Width-40,top+FtxtHeight+8,Width-22,top+FTxtHeight+24);
end;
Plot3D(FrcPlotU,iArrowUp,uFlags);
end;

procedure TForm1.WMLButtonUp(var Message: TWMLButtonUp);
begin
Inherited;
if PtInRect(FrcPlotU,Point(Message.XPos,Message.YPos)) then
Plot3d(FrcPlotU,TRUE,0)
end;

procedure TForm1.WMLButtonDown(var Message: TWMLButtonDown);
begin
Inherited;
if PtInRect(FrcPlotU,Point(Message.XPos,Message.YPos)) then
Plot3d(FrcPlotU,TRUE,DFCS_PUSHED)
end;

P.S. Не помагает даже закомментирование Inherited, чтобы удалить все последующие обработчики.


 
Johnny   (2002-09-23 10:02) [1]

Собственно где кнопка то рисуется? DFC_SCROLL это не кнопка. И рисовать надо в OnPaint.


 
AlbertHakimov   (2002-09-23 10:56) [2]

Собственно DrawFrameControl позволяет нарисовать и кнопку, именно нарисовать, а DFC_SCROLL - ну просто нужно было кнопка + стрелочка (указатель направления) вот я и решил использовать DFC_SCROLL вместо DFC_BOTTON.

Суть то не в том что я рисую, а почему так медленно происходит отработка события?


 
boa   (2002-09-23 12:14) [3]

Наверное потому, что сначала обрабатывается inherited а потом только рисуется кнопка.


 
Alex4444444444   (2002-09-23 12:16) [4]

Ya delayu to zhe samoe, no u menya knopka inherits from
TGraphicControl i risovanie idet v OnPaint. Vse rabotaet prekrasno. Edinstvennoe zamechanie: ya ispol"zuyu DFC_SCROLL
dlya togo, chtoby narisovat" knopku vnutri TEdit. U nee
nemnogo drugoe rebro, kak raz dlya TEdit.


 
boa   (2002-09-23 12:21) [5]

Пошу прощения, не рпочитал P.S.
Попробуй Message.Result := 1;



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

Форум: "Основная";
Текущий архив: 2002.10.03;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.006 c
3-7820
bobr12
2002-09-12 10:43
2002.10.03
Stream и Blob поля


14-8118
TTCustomDelphiMaster
2002-09-07 19:21
2002.10.03
Кино не показывает


1-7988
users
2002-09-20 02:08
2002.10.03
Написание собственных обработчиков событий .... Плиэ...


14-8128
Esu
2002-09-08 20:00
2002.10.03
Я фигею, дорогая передача...


3-7850
KIR
2002-09-13 00:23
2002.10.03
Снова о переносе БД с Paradox a





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский