[Alan85]

попробуй как то вот так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var can:tcanvas;
begin
  can:=TCanvas.Create;
  can.Handle:=GetDC(BitBtn1.Handle);
  can.LineTo(10,100);
  can.free;
end;

[ALI]

Alan85, просвети неуча, а что за функция GetDC и что за свойство Handle?
И еще: все нормально, все рисуется, как надо, но есть одна маленькая загвоздка: после того, как я перевожу фокус на какой-нибудь другой компонент, нарисованное на канве исчезает. Что делать, как сохранить рисунок?

[Alan85]

функция GetDC из WinAPI - дает чтото вроде номера холста (DC) на чем будем рисовать , при этом для его определения надо задать номер объекта на котором будем рисовать (Handle). Этот номер (дескриптер) есть у каждого объетка в Windows. И выходит что мы делаем холст

can:=TCanvas.Create; »

затем задаем ему что он холст объекта кнопки:

can.Handle:=GetDC(BitBtn1.Handle); »

и дальше рисуем что хотим ну и после этого не забываем его удалить из памяти
кстати -

can.Handle »

на мой взгляд некорректно с точки зрения реализации так как Handle здесь используется в не том смысле что в большинстве случаев

[R.M.L]

Срочно нужна ваша помощь!
Как на Дельфи запуская файл с уникальной папки (то есть где сидит сама программа .exe) распознать букву диска?
Я делаю для себя что то типа Авторана,и определить букву диска не могу.Свою могу а если поставить на другую машину то выходит ошибка.
Можно посоветовать всякие там Авторановские проги (Autoplay media,MMB,Neobook и тд) но эти проги лишены многими компонентами.Мне нужен компонент ScrollBox для прокручивания,т.к я делаю окно 400 на 300,а файлы на этом окне будет много.
Но функция ShellExecute,winexec ищет только по конкретному пути и определению,а мои файлы не будут загружаться на HDD я их прямо с диска хочу проинсталлирвоать или просто открыть какой то файл.

[Serega]

R.M.L, ExtractFilePath(Application.ExeName) - получите путь, откуда запущена программа, а ExtractFileDrive(Application.ExeName) - получите имя диска...

[ALI]

Возникла проблема с DBGrid'ом, а точнее с хинтами к нему. При наведении на определенный элемент в DBGrid (например, на EE) появляется хинт, при смещении указателя он исчезает, как ему и положено и как заложено в код программы. Но! При перемещение ентого указателя в сторону нижнего правого угла, вверху появляется странное мерцание, как будто хинт исчезает и снова появляется.

Код обработчика перемещения мыши:

Код:

procedure TMainForm.MDBGridMouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);              // Обработка перемещения курсора мыши над MDBGrid
var XX, YY, CurRec: integer;
  procedure HideHint;
  begin
    Application.HideHint;
    Exit;
  end;
begin
  XX := MDBGrid.MouseCoord(x,y).x;
  YY := MDBGrid.MouseCoord(x,y).y;
  Label1.Caption := IntToStr(XX) + ', ' + IntToStr(YY);
  with THackDBGrid(MDBGrid) do
    begin
        if ((XX <> MDBGrid.Columns.Count - 2) or (YY <> 0)) and
           ((XX <> 3) or (YY <> N2 + 1))  then
          HideHint;
      CurRec := DataLink.ActiveRecord;
      DataLink.ActiveRecord := YY - 1;
        if (XX = MDBGrid.Columns.Count - 2) and (YY = 0) then
          MDBGrid.Hint := 'Cоциометрический' + #13 + '          статус';
        if (XX = 3) and (YY = N2 + 1) then
          MDBGrid.Hint := 'Эмоциональная' + #13 + 'экспансивность';
      Application.ActivateHint(Point(X,Y));
      DataLink.ActiveRecord := CurRec;
    end;
end;

Выглядит таблица и мерцание следующим образом:

[ALI]

Проблему решил буквально через 5 минут после того, как написал сообщение, следующим образом:

Код:

procedure TMainForm.MDBGridMouseMove(Sender: TObject; Shift: TShiftState;
 X, Y: Integer);              // Обработка перемещения курсора мыши над MDBGrid
var XX, YY, CurRec: integer;
 procedure HideHint;
 begin
   MDBGrid.ShowHint := False;
   Exit;
 end;
begin
 XX := MDBGrid.MouseCoord(x,y).x;
 YY := MDBGrid.MouseCoord(x,y).y;
 Label1.Caption := IntToStr(XX) + ', ' + IntToStr(YY);
 with THackDBGrid(MDBGrid) do
   begin
       if ((XX <> MDBGrid.Columns.Count - 2) or (YY <> 0)) and
          ((XX <> 3) or (YY <> N2 + 1))  then
         HideHint;
     CurRec := DataLink.ActiveRecord;
     DataLink.ActiveRecord := YY - 1;
       if (XX = MDBGrid.Columns.Count - 2) and (YY = 0) then
         begin
           MDBGrid.ShowHint := True;
           MDBGrid.Hint := 'Cоциометрический' + #13 + '          статус';
         end;
      if (XX = 3) and (YY = N2 + 1) then
         begin
           MDBGrid.ShowHint := True;
           MDBGrid.Hint := 'Эмоциональная' + #13 + 'экспансивность';
         end;  
     Application.ActivateHint(Point(X,Y));
     DataLink.ActiveRecord := CurRec;
   end;
end;

[ALI]

Тогда вопрос таков: а можно ли напрямую загружать в Глиф рисунок из Имажлиста, не занимаясь отрисовкой на канве БитБтн?

[Alan85]

Код:

 ImageList1.GetBitmap(1,BitBtn1.Glyph); // 1 - Это индекс изображения в imagelist

[R.M.L]

Serega,спасибо большое,а готовую функцию можно у вас взять? У меня что-то никак не получается,божее