Виртуальная библиотека Delphi

MainMenu1: TMainMenu;

MenuItemFile: TMenuItem;

MenuItemOpen: TMenuItem;

MenuItemClose: TMenuItem;

OpenDialog1: TOpenDialog;

procedure FormCreate(Sender: TObject);

procedure MenuItemCloseClick(Sender: TObject);

procedure MenuItemOpenClick(Sender: TObject);

private

{Private declarations}

procedure HintHandler(Sender: TObject);

public

{Public declarations}

end;

var Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);

begin

Panel1.Align := alBottom;

MenuItemFile.Hint := 'File Menu';

MenuItemOpen.Hint := 'Opens A File';

MenuItemClose.Hint := 'Closes the Application';

Application.OnHint := HintHandler;

end;

procedure TForm1.HintHandler(Sender: TObject);

begin

Panel1.Caption := Application.Hint;

end;

procedure TForm1.MenuItemCloseClick(Sender: TObject);

begin

Application.Terminate;

end;

procedure TForm1.MenuItemOpenClick(Sender: TObject);

begin

if OpenDialog1.Execute then Form1.Caption := OpenDialog1.FileName;

end;

Вопрос:

Как опеделить состояние списка ComboBox, выпал/скрыт?

Ответ:

Пошлите ComboBox сообщение CB_GETDROPPEDSTATE.

Пример:

if SendMessage(ComboBox1.Handle, CB_GETDROPPEDSTATE,0,0) = 1 then begin

{список ComboBox выпал}

end;

Вопрос:

Как удалить каталог вместе со всеми содержащимися в нем файлами?

Ответ:

В примере стираются все файлы в каталоге и сам каталог. Чтобы удалить файл, помечанные только для чтения (read only) и занятые другими программами в момент удаления — напишите дополнительную процедуру.

procedure TForm1.Button1Click(Sender: TObject);

var

DirInfo: TSearchRec;

r: integer;

begin

r := FindFirst('C:\Download\*.*', FaAnyfile, DirInfo);

while r = 0 do begin

if ((DirInfo.Attr and FaDirectory <> FaDirectory) and (DirInfo.Attr and FaVolumeId <> FaVolumeID)) then if DeleteFile(pChar('C:\Download\' + DirInfo.Name))= false then ShowMessage('Unable to delete: C:\Download\'+DirInfo.Name);

r := FindNext(DirInfo);

end;

SysUtils.FindClose(DirInfo);

if RemoveDirectory('C:\Download\') = false then ShowMessage('Unable to delete directory: C:\Download\');

end;

Вопрос:

Как отключить системное меню формы и кнопки Minimize, Maximize, and Close во время выполнения(Runtime)?

Ответ:

В приведенном примере показано как это сделать

Пример:

procedure TForm1.Button1Click(Sender: TObject);

begin

{Disable}

Form1.BorderIcons := Form1.BorderIcons - [biSystemMenu, biMinimize, biMaximize];

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

{Enable}

Form1.BorderIcons := Form1.BorderIcons + [biSystemMenu, biMinimize, biMaximize];

end;

Вопрос:

Как извлечь Red, Green, и Blue компонент из определенного цвета?

Ответ:

Используйте функции Window API Get RValue(), GetGValue(), и GetBValue().

Пример:

procedure TForm1.Button1Click(Sender: TObject);

begin

Form1.Canvas.Pen.Color := clRed;

Memo1.Lines.Add('Red := ' + IntToStr(GetRValue(Form1.Canvas.Pen.Color)));

Memo1.Lines.Add('Red := ' + IntToStr(GetGValue(Form1.Canvas.Pen.Color)));

Memo1.Lines.Add('Blue:= ' + IntToStr(GetBValue(Form1.Canvas.Pen.Color)));

end;

Вопрос:

Как определить номер текущей строки в TMemo?

Ответ:

Чтобы определить номер текущей строки любого объекта управления edit — пошлите ей сообщение EM_LINEFROMCHAR

Пример:

procedure TForm1.Button1Click(Sender: TObject);

var LineNumber : integer;

begin

LineNumber := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, word(-1), 0);

ShowMessage(IntToStr(LineNumber));

end;

Вопрос:

Как проигрывать MPEG файл в Delphi-программе?

Ответ:

Если в системе Windows MMSystem установлен декодер MPEG — используя компонент TMediaPlayer

Пример:

procedure TForm1.Button1Click(Sender: TObject);

begin

MediaPlayer1.Filename := 'C:\DownLoad\rsgrow.mpg';

MediaPlayer1.Open;

MediaPlayer1.Display := Panel1;

MediaPlayer1.DisplayRect := Panel1.ClientRect;

MediaPlayer1.Play;

end;

Вопрос:

Как использовать анимированный курсор?

Ответ:

Во первых необходимо получить handle курсора, а затем определить его в массиве курсоров компонента TScreen. Индексы предопределенных курсоров системы отрицательны, пользователь может определить курсор, индекс которого положителен.

Пример:

procedure TForm1.Button1Click(Sender: TObject);

var h : THandle;

begin

h := LoadImage(0, 'C:\TheWall\Magic.ani', IMAGE_CURSOR, 0, 0, LR_DEFAULTSIZE or LR_LOADFROMFILE);

if h = 0 then ShowMessage('Cursor not loaded')

else begin

Screen.Cursors[1] := h;

Form1.Cursor := 1;

end;

end;

Вопрос:

Как узнать о нажатии "non-menu" клавиши в момент когда меню показано?

Ответ:

Создайте обработчик сообщения WM_MENUCHAR.

Пример:

unit Unit1;

interface

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

type TForm1 = class(TForm)

MainMenu1: TMainMenu;

One1: TMenuItem;

Two1: TMenuItem;

THree1: TMenuItem;

private

{Private declarations}

procedure WmMenuChar(var m : TMessage); message WM_MENUCHAR;