Цитата:
|
Сообщение от Winny
Ставишь у твоего BitBtn свойство ShowHint в True и пишешь нужную подсказку в свойстве Hint.
|
Спасибо!
А я мучаюсь, пытаясь запустить что-то похоже на
Код:
procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Shape1.Hint:='Подсказка';
end;
Почему-то не получается. Хотя, все крутится.
Еще раз - благодарю.