FAQ - Персональный сайт

Форма входа

Меню сайта

Главная » FAQ » Программирование Delphi

[ Добавить вопрос ]

Программирование Delphi [91]

Вопрос-Ответ по программированию

1.Иногда всплывающее меню моего приложения system tray не исчезает когда оно теряет фокус. Как закрыть его?

2.Иногда всплывающее меню моего приложения system tray не исчезает когда оно теряет фокус. Как закрыть?

3.Как узнать текущие время и дату по Гринвичу

4.Какой самый быстрый способ для очистки canvasа?

5.При изменении размеров формы мне необходимо чтобы перерисовывалась вся ее поверхность. Но свойство Canvas.ClipRect у формы - только для чтения.

Иногда всплывающее меню моего приложения system tray не исчезает когда оно теряет фокус. Как закрыть его?

При показе всплывающего меню установите foreground window, затем пошлите сообщение WM_NULL после показа меню.

             procedure TForm1.WndProc(var Msg : TMessage);

var

               p : TPoint;

             begin

               case Msg.Msg of

                 WM_USER + 1:

                 case Msg.lParam of

                   WM_RBUTTONDOWN: begin

                      SetForegroundWindow(Handle);

                      GetCursorPos(p);

                      PopupMenu1.Popup(p.x, p.y);

                      PostMessage(Handle, WM_NULL, 0, 0);

                   end;

                 end;

               end;

               inherited;

             end;

Иногда всплывающее меню моего приложения system tray не исчезает когда оно теряет фокус. Как закрыть?

При показе всплывающего меню установите foreground window, затем пошлите сообщение WM_NULL после

показа меню.

procedure TForm1.WndProc(var Msg : TMessage);

var

p : TPoint;

begin

case Msg.Msg of

WM_USER + 1:

case Msg.lParam of

WM_RBUTTONDOWN: begin

SetForegroundWindow(Handle);

GetCursorPos(p);

PopupMenu1.Popup(p.x, p.y);

PostMessage(Handle, WM_NULL, 0, 0);

end;

inherited;

end;

Добавил: Администратор

Как узнать текущие время и дату по Гринвичу

Используя API фукцию GetSystemTime.

Пример :

procedure TForm1.Button1Click(Sender: TObject);

var

lt : TSYSTEMTIME;

st : TSYSTEMTIME;

begin

GetLocalTime(lt);

GetSystemTime(st);

Memo1.Lines.Add('LocalTime = ' +

IntToStr(lt.wmonth) + '/' +

IntToStr(lt.wDay) + '/' +

IntToStr(lt.wYear) + ' ' +

IntToStr(lt.wHour) + ':' +

IntToStr(lt.wMinute) + ':' +

IntToStr(lt.wSecond));

Memo1.Lines.Add('UTCTime = ' +

IntToStr(st.wmonth) + '/' +

IntToStr(st.wDay) + '/' +

IntToStr(st.wYear) + ' ' +

IntToStr(st.wHour) + ':' +

IntToStr(st.wMinute) + ':' +

IntToStr(st.wSecond));

end;

Добавил: Администратор

Какой самый быстрый способ для очистки canvasа?

Windows API функция PatBlt().

Пример :

procedure TForm1.Button1Click(Sender: TObject);

begin

PatBlt(Form1.Canvas.Handle,

Form1.ClientWidth,

Form1.ClientHeight,

WHITENESS);

end;

Добавил: casperof (casperof)

При изменении размеров формы мне необходимо чтобы перерисовывалась вся ее поверхность. Но свойство Canvas.ClipRect у формы - только для чтения.

На событии Resize вызовите Windows API функцию InvalidateRect(). Если передать nil в качестве второго

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

указывает будет ли перерисовываться фон формы.

Пример :

procedure TForm1.FormResize(Sender: TObject);

begin

InvalidateRect(Form1.Handle, nil, false);

end;

Добавил: casperof (casperof)

1-5 6-10 11-15 ... 86-90 91-91

Наш опрос

Статистика

Онлайн всего: 1

Гостей: 1

Пользователей: 0

Поиск