Вопросы по Delphi/Pascal

[mauar]

Как сделать на Delpphi: при перетаскивание окна мышью, или нажатия мышью на окно заголовка програмы, окно становится прозрачным?

[hack]

Обрабатывай AlphaBlendValue в свойствах формы, предварительно поставь AlphaBlend - True. Вот небольшой пример:

procedure MainForm.FormClose(Sender: TObject; var Action: TForm1);
var
  i : 0..255;
  j :0..255;
begin
  if AlphaBlend=False then
   begin
     AlphaBlendValue:=255;
     AlphaBlend:=True;
  end;
  j:=AlphaBlendValue;
  for i := j downto 0 do 
  begin                       
    AlphaBlendValue := i;
    Application.ProcessMessages;
  end;
  end;

AlphaBlendValue = 255 (окно полностью непрозрачно)
AlphaBlendValue = 0 (окно полностью прозрачно)

[mauar]

Цитата: Сообщение от hack Обрабатывай AlphaBlendValue в свойствах формы, предварительно поставь AlphaBlend - True. Вот небольшой пример: AlphaBlendValue = 255 (окно полностью непрозрачно) AlphaBlendValue = 0 (окно полностью прозрачно)

Мне надо чтобы окно меняло прозрачность при перетаскивании мыши, что то у меня твой код не идет, он полностью окно делает прозрачным либо при замене у downto 0 на значение 255 окно обычное и все.:7:

[hack]

В этом примере окно меняет прозрачность от 255 до 0 при событии OnClose а тебе надо обрабатывать события перетаскивания окна.

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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
   { Private declarations }
   OldX,
 OldY,
 OldLeft,
 OldTop   : Integer;
 ScreenDC : HDC;
 MoveRect : TRect;
 Dragging   : Boolean;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }



procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);

Begin
AlphaBlendValue:=50;
 if Button = mbLeft then 
 begin
   ScreenDC := GetDC(0); 
   OldX := X;
   OldY := Y;
   OldLeft := X;
   OldTop := Y;
   MoveRect := BoundsRect;
   DrawFocusRect(ScreenDC, MoveRect);
   Dragging := True;
  end;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if Dragging then begin
    DrawFocusRect(ScreenDC,MoveRect);
    OldX := X;
    OldY := Y;
    MoveRect := Rect(Left+OldX-OldLeft,Top+OldY-OldTop,
          Left+Width+OldX-OldLeft,Top+Height+OldY-OldTop);
    DrawFocusRect(ScreenDC,MoveRect);
  end;
end;


procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
AlphaBlendValue:=255;
if Button = mbLeft then begin
    DrawFocusRect(ScreenDC,MoveRect);
    Left := Left+X-OldLeft;
    Top := Top+Y-OldTop;
    ReleaseDC(0,ScreenDC);
    Dragging := False;
  end;
end;

end.

[neonman]

Замечание: прозрачность работает только в W2k/XP/2003 server/VISTA

[Alithay]

Подскажите как сделать так, чтобы в компоненте DBGrid редактировать ячейку можно было только при нажатии Enter. Установка свойства Always ShowEditor В FALSE не помагает. А то получается случайно кнопку нажал и все уже ячейка редактируется

[ErrorMs]

Цитата: Сообщение от Alithay Подскажите как сделать так, чтобы в компоненте DBGrid редактировать ячейку можно было только при нажатии Enter.

Нужно копать обработчик нажатых клавиш, а там или условие или фильтр. (Если не путаюсь, под рукой Delphi нет, OnPressKey).

[xilian]

Цитата: Сообщение от ErrorMs Нужно копать обработчик нажатых клавиш, а там или условие или фильтр. (Если не путаюсь, под рукой Delphi нет, OnPressKey).

путаешь, OnKeyDown ловить key=VK_RETURN.

сначала просмотри текстовик и найди в нем закономерность в строках
потом каждую надо строку считать из текстовика,
readln(f,s);
потом выдели из нее значения всех полей записи
sfio:=trim(copy(s,1,20)); - выделить из строки ФИО, с 1 символа 20
символов длиной
...
table1.Append; - добавить пустую запись в таблицу
table1.FieldByName('fio').asstring:=sfio;
...
table1.post - добавить значения.
это повторяешь в цикле для каждой строки.
все

[hack]

Цитата: Сообщение от mauar Нифига не получется скинь исходник, если у тебя это работает, я на дельфи 7 сижу. Тема была про то как изменить прозрачность окна при перетаскивании мыши.

Прикрепил исходники

[DemoZT]

Доброго времени суток!
1. Можно ли сделать например из ListBox’a что-то похожее на панель в тотале? А именно колонки и программно управлять их табуляцией.
Можно и без "Иконок", интересует именно самодельное.
2. Есть ли в дельфи тип данных похожий на TStringList только с 2-х мерным массивом строк?

[neonman]

DemoZT, можно сделать все что угодно! =)
1. Я умудрялся прорабатывать и рисовать весь интерфейс (от эдитов до скролл-баров) на форме вручную!!! Если интересует, то могу дать исходник - там что-то вроде HEX-редактора со встроеным пределителем контента и просмотрщиком на DirectX.
Или дурацкая забава - написать редактор с подсветкой синтаксиса - у кого лучше и быстрее получится! Причем без всх этих пошлых RichEdit'ов!
Не пользуйся ListBox'ом для этого - рисуй сам на панельке. Только с Tab'ом придется повозиться (в смысле если хочешь его перехватывать)...
2. Да, есть -
2SL = record
s1, s2: TStringList;
end;

Цитата: Сообщение от DemoZT Доброго времени суток! 1. Можно ли сделать например из ListBox’a что-то похожее на панель в тотале? А именно колонки и программно управлять их табуляцией. Можно и без "Иконок", интересует именно самодельное. 2. Есть ли в дельфи тип данных похожий на TStringList только с 2-х мерным массивом строк?

Используй компонент TListView - очень удобная тема, там тебе и иконки и любые массивы строк и скока хочешь колонок. Иконки задаешь через TImageList.

Добавлено через 4 минуты 39 секунд

Цитата: Сообщение от neonman DemoZT, можно сделать все что угодно! =) 1. Я умудрялся прорабатывать и рисовать весь интерфейс (от эдитов до скролл-баров) на форме вручную!!! Если интересует, то могу дать исходник - там что-то вроде HEX-редактора со встроеным пределителем контента и просмотрщиком на DirectX. Или дурацкая забава - написать редактор с подсветкой синтаксиса - у кого лучше и быстрее получится! Причем без всх этих пошлых RichEdit'ов! Не пользуйся ListBox'ом для этого - рисуй сам на панельке. Только с Tab'ом придется повозиться (в смысле если хочешь его перехватывать)... 2. Да, есть - 2SL = record s1, s2: TStringList; end;

DirectX?? Интерфейс? Если можешь, кинь исходник на [email protected]

[svetlanalany]

представляет собой гибкий инструмент, позволяющий управлять потоками информации между Управлением компании и судами и использовать эти данные для принятия оптимальных решений. Она охватывает все затрагиваемые МКУБ вопросы: качество и безопасность управления; организацию документооборота; распределение обязанностей и ответственность персонала; отчетность и процесс устранения несоответствий; контроль за исполнением всевозможных работ и действий предписанных как самой СУБ, так и возникающих в процессе ежедневного функционирования Компании; обеспечение наличия объективных доказательств деятельности или выполнения работ всех участников системы, с целью их дальнейшего использования для анализа и выработки решений по совершенствованию системы; обеспечение такой организации выполнения работ в Компании, при которой в наибольшей степени исключается влияние "человеческого фактора".
Основным отличием компьютеризированной СУБ является то, что функционирование системы происходит в реальном масштабе времени и все пользователи работают в едином информационном поле, т.е. каждый имеет оперативный доступ к наиболее достоверным данным на текущий момент времени.
Кто-нить сталкивался, подскажите на чем это работает?

[fander]

Кто-нибудь с DTreeView работал, как там динамически дерево можно сформировать, например из базы данных. Кинте ссылку где мона почитать.