Показать сообщение отдельно
Старый 09.02.2011, 14:23   #20
Новичок
 
Регистрация: 27.01.2011
Адрес: Екатеринбург
Сообщений: 12
Сказал Спасибо: 4
Имеет 0 спасибок в 0 сообщенях
carliker пока неопределено
По умолчанию

Блин, мне реально уже стыдно спрашивать, извините за мою тупость, но где в библиотеки написать процедуру отлова клавишь и как. С формой то все понятно, там событие по таймеры происхдило. А тут когда оно должно происходить?

Все для горячей клавиши дошло как сделать:
Код:
if getasynckeystate($70)<>0 then
  begin
  TextRect := Rect(300,300,300,300);
  g_Font.DrawTextA(nil,PChar('Работает'),-1, @TextRect,DT_LEFT or DT_NOCLIP,D3DCOLOR_RGBA($ff, $00, $00, $ff));
  Result:=EndScene9Next(self);
  end
  else
  begin
  TextRect := Rect(300,300,300,300);
  g_Font.DrawTextA(nil,PChar('Привет мир'),-1, @TextRect,DT_LEFT or DT_NOCLIP,D3DCOLOR_RGBA($ff, $00, $00, $ff));
  Result:=EndScene9Next(self);
  end;
А как сделать чтобы бралось слово из Edit который на форме, например:
Код:
g_Font.DrawTextA(nil,PChar(Edit1.Text),-1, @TextRect,DT_LEFT or DT_NOCLIP,D3DCOLOR_RGBA($ff, $00, $00, $ff));
и второй вопрос, можно ли вместе с текстом вывести картинку маленькую или хотя бы фон у текста сделать например черным?
Спасибо

Последний раз редактировалось carliker, 09.02.2011 в 16:30.
carliker вне форума   Ответить с цитированием