Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Компоненты и классы
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #16  
Старый 09.06.2012, 11:30
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Код:
unit Unit1;

interface

uses
  CommCtrl,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan, ExtCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    XPManifest1: TXPManifest;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    FToolTip: HWND;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

const
  TTI_NONE = 0;
  TTI_INFO = 1;
  TTI_WARNING = 2;
  TTI_ERROR = 3;

  TTS_ALWAYSTIP = $01;
  TTS_NOPREFIX = $02;
  TTS_NOANIMATE = $10;
  TTS_NOFADE = $20;
  TTS_BALLOON = $40;
  TTS_CLOSE = $80;

  TTM_SETTITLE = WM_USER+32;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  ti: TOOLINFO;
begin
  FToolTip:=CreateWindowEx(WS_EX_TOPMOST,
    TOOLTIPS_CLASS,
    nil,
    TTS_NOPREFIX or TTS_ALWAYSTIP or TTS_BALLOON,
    0, 0, 0, 0,
    0, 0, HInstance, nil);
  SendMessage(FToolTip, TTM_SETTITLE, 1, LPARAM(PChar('ToolTip')));
  ZeroMemory(@ti, SizeOf(TOOLINFO));
  ti.cbSize:=SizeOf(TOOLINFO);
  ti.uFlags:=TTF_SUBCLASS; 
  ti.hwnd:=Edit1.Handle;
  ti.lpszText:=PChar('Edit1');
  Windows.GetClientRect(Edit1.Handle, ti.Rect);
  SendMessage(FToolTip, TTM_ADDTOOL, 0, LPARAM(@ti));
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  DestroyWindow(FToolTip);
end;

end.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием
  #17  
Старый 09.06.2012, 12:02
kobz kobz вне форума
Прохожий
 
Регистрация: 08.06.2012
Сообщения: 12
Репутация: 10
По умолчанию

Спасибо Numlock. Хотел поюзать стандартный компонент, вот поюзал называется
Ответить с цитированием
  #18  
Старый 09.06.2012, 13:00
Аватар для Kailon
Kailon Kailon вне форума
Активный
 
Регистрация: 06.06.2010
Сообщения: 339
Версия Delphi: 10.4
Репутация: 429
Сообщение

А может кто-нибудь рассказать или какие-нибудь идеи подкинуть почему так получается, что в одной версии Delphi нормально все получается, а в другой нет...
__________________
Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 01:45.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter