Вопрос: Как создать отдельную подсказку (hint) для каждой ячейки StringGrid? Ответ:
В приведенном примере
отслеживается движение курсора мыши – при перемещении между ячейками StringGrid’а
- появляется окно подсказки(hint), показываеющее номер текущей строки и колонки. Read the rest of this entry »
Вопрос:
При использовании модулей доступа к BDE (DbiTypes, DbiProcs, DbiErrs), любая попытка вызвать процедуру abort выдает ошибку при компиляции при вызове метода abort “Statement expected,
but expression of type ‘Integer’ found”. Я пытался найти DbiTypes.pas, DbiProcs.pas
и DbiErrs.pas чтобы разобраться но не нашел этих файлов. Где расположены эти
файлы и как обойти ошибку?
Вопрос:
Как разместить прозрачную надпись на TBitmap?
Пример:
procedure TForm1.Button1Click(Sender: TObject);
var
OldBkMode : integer;
begin
Image1.Picture.Bitmap.Canvas.Font.Color := clBlue;
OldBkMode := SetBkMode(Image1.Picture.Bitmap.Canvas.Handle,TRANSPARENT);
Image1.Picture.Bitmap.Canvas.TextOut(10, 10, ‘Hello’);
SetBkMode(Image1.Picture.Bitmap.Canvas.Handle,OldBkMode);
end;
В иерархии VCL в большинстве случаев существует уровень объектов-”предшественников”
(TCustomXXXX), в которых многие свойства скрыты. Для унаследованных от таких
“предшественников” объектов можно “открывать” на выбор те или иные свойства.
А как можно сокрыть свойства, которые объявлены в published-области
от Object Inspector’а, но при этом оставить возможность доступа во время
работы программы? Решение состоит в объявлении свойства “по новой” в public-области.
В примере скрытым будет у объекта TMyControl свойство Height.
TMyControl = class(TWinControl) Read the rest of this entry »
Для выяснения даты последнего изменения файла можно воспользоваться следующей
функцией:
function GetFileDate(FileName: string): string;