есть задание: Создать панели элементов с кнопками и списками. Настроить панели для реализации функции "причаливания" Docking.


помогите реализовать, пожалуйста

Народ к вам вопрос! Как можно осуществить взаимодействие Дельфи, с Фелшом из браузера? Если можно примерчики какиенибудь или компонентики если есть или документацию на эту тему...

как можно избежать такой ситуации: при делении 1 на 1000000 ответ выводит в формате 1Е-6, нужно что бы ответ был в обычном формате (0,000001) или 1*10^-6...подскажите, кто знает, или если такое возможно...

Медиа плеер в дельфи может только воспроизводить звук. файлы которые есть на компьютере....звук. файл ни как нельзя закинуть в саму прогу?? как картинку....???а то на моем компе играет, а на другом нет, или когда звук. файл переместишь.....(((...или я я что то неправильно делаю?...(((

позор мне канеш....за такой простой и глупый вопрос, но память отшибло....
r1:=Log(Re);
,....не действует не расспознает Log да и Lg тоже...ток Ln...но это совсем другое...помогите....под конец дня совсем туплю..

Как узнать положение курсора?

подскажите пожалуйста, как можно сделать, что бы при запуске программы она автоматически делала определенное действие...например показала 3 картинки поочередно с разницей в пол секунды....заранее спс...

возможно ли в поле Label написать сложную формулу...примерно такого вида если да, то как сделать....

Можно ли использовать часть скрипта или весь скрипт питона в делпфи? Если да, то приведите, пожалуйста, пример

как написать что бы в поле Edit можно было вводить ток положительные числа..если введешь отрицательное,  нажимаешь рассчитать, тебе пишет Х не может быть отрицательным....

как написать прогу, в которой вписываешь в два поля числа, нажимаешь кнопку, прога вычисляет по запланированной формуле, и выдает ответ.....

Всем привет! Тут ниже Unit, там описана процедура для удаления папок с содержимым (папки, файлы). В нете можно найти варианты с применеием рекурсии, но рекусия это рекурсия, дорого и не совсем надежно.
 
Стандарт ная процедура удаления папок delphi (RemoveDir) не удаляет вложенные папки и папки с содержимым.
 
Испытания проводил на флешке со вложенными папками, по скоростным показателям мало отличаеться от удаления через систему.
 
Буду рад получить отзовы и предложения по улучшению кода! В частности удаления зашишеных папок и файлов.
 
Жду откликов!
 
 
unit folders;
 
//____Abducarimov_Kairat_Tagaevich____
//____17.09.09________________________
//____function_for_removing_folders___
//____function_use_no_recursion_______
 
interface
uses SysUtils, Dialogs;
Function RemoveDirs(Dir : String) : Boolean;//delete_folder_with_contents
implementation
Function step_back(path:string):String;//gets_path_one_level_up
var i,le:integer;
begin
  le:=length(path);
  for i:=1 to le do
    if path[le-i]='\' then
      begin
        path:=copy(path,1,le-i-1);
        Break;
      end
    else
      begin
        if path[le-i]=':' then Break;
      end;
   Result:=path;
 end;
Function RemoveDirs(Dir : String) : Boolean;
var
  iIndex : Integer;
  SearchRec : TSearchRec;
  sFileName : string;
  StopLine:string;
  SourceDir:string;
begin
  StopLine:=Step_back(Dir);
  SourceDir:=Dir;
  repeat
    SourceDir := SourceDir + '\*.*';
    iIndex := FindFirst(SourceDir, faAnyFile, SearchRec);
    while iIndex=0 do
      begin
       sFileName := ExtractFileDir(SourceDir)+'\'+SearchRec.Name;
         if SearchRec.Attr = faDirectory then
           begin
             if (SearchRec.Name<>'') and (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then
               begin
                 SourceDir := sFileName + '\*.*';
                 FindClose(SearchRec);
                 iIndex := FindFirst(SourceDir, faAnyFile, SearchRec);
               end else iIndex := FindNext(SearchRec);
           end else
               begin
                if SearchRec.Attr <> faArchive then FileSetAttr(sFileName, faArchive);
                if NOT DeleteFile(sFileName) then ShowMessage('Could NOT delete' + sFileName);
                iIndex := FindNext(SearchRec);
               end;
       end;
    FindClose(SearchRec);
    SourceDir:=ExtractFileDir(SourceDir);
    RemoveDir(SourceDir);
    SourceDir:=step_back(SourceDir);
  Until SourceDir=StopLine;
end;

end.

Я загружаю текстуры из файлов формата JPEG, TGA, BMP. хотелось-бы также найти коды к загрузке файлов формата GIF и TIF, если кто то уже имеет опыт работы с OpenGL, готов поделиться кодами. Загрузка файлов производиться из потока с сохранением информации в формате RGB с выделением памяти Pointer.

почему када я пишу в коде ... PostMessage(phandle, WM_QUIT, 0, 0) ..........что бы прога убивала блокноты, после нажатия на кнопку, прога после выполненной задачи сама закрывается.... а при использовании .... SendMessage(phandle, WM_CLOSE, 0, 0) ..... прога после выполненной задачи не закрывается сама по себе...в чем причина и устранима ли она (что бы прога не закрывалась сама по себе, и наоборот)....заранее спс,.........
......и еще вопрос: что такое .... : HWND ???....я не врублюсь... и в чем отличие SendMessage и PostMessage....как их понять???....еще раз заранее спс...

.....Вот еще один вопрос почему один код написан так, другой по другому, но результат один и тот же, как понять, и какой легче понять:

procedure TForm1.Button1Click(Sender: TObject);
var
   Rgn : hRgn;
begin
   {Cпрятать кнопку "Пуск"}
   Rgn := CreateRectRgn(0, 0, 0, 0);
   SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil),
                                                                 0,
                                                                 'Button',
                                                                  nil),
                                                                 Rgn,
                                                                 true);
end;

и

var
  hnd:thandle;
begin
  hnd:=findwindow('shell_traywnd',0);// находим описатель tray
  hnd:=findwindowex(hnd,0,'button',0);// находим кнопку пуск
  showwindow(hnd,sw_hide); // прячем кнопку
end.
???, хотя задача у них одна и таже...

кто нить научите работать с дельфи, в книгах не понятно написано... какие процедуры есть, за что они отвечают....вообщем у кого время есть научите.... спс заранее....:(

Если у кого есть вопросы по MyDAC - обращайтесь.
Кто как работает с Mускулом?

Кто нибудь занимался триангуляцией на Delphi?
Нужна помощь.

Как по MAC-адресу компьютера узнать его IP?

Result^.Ribs[1]^.Triangles[1]:= Result;

У меня есть необходимость с быстром доступе к много мерному массиву, каждый оборот цикла нуждается порядка млн обрашений (я пересчитываю изображение в формате RGB) как можно ускорить обрашение к элементам массива (мутить с сылками я пробовал, есть результат но хотелось-бы узнать что еше можно придумать), есть ли смысел в переходе на одномерный массив вместо [2048][2048][3] и переходить к его элементам по сылке?

Куча полезного кода и примеров:
http://kladovka.net.ru/

Привет! Как позвонить на домашний или мобильный телефон и проиграть wav-файл средствами Делфи? Номера телефонов находятся в базе Dbase.

Кто нибудь реализовывал алгоритмы триангуляции?
Может поделитесь или ссылку на источник подкинете?

Как реализовать в Delphi Процедурный параметр?
Конструкция вида:
Procedure TraverseStack(S:stack; Visit: processentry);
или
Procedure TraverseStack(S:stack; procedure Visit(x: stackentry));

Реализация стека в виде массива, образцово показательный код:
unit Stack1;

interface

uses
Dialogs;

const
maxstack=3;

type stackentry = String; {тип ячейки стека}

type stack = record
top: 0..maxstack;
entry: array[1..maxstack] of stackentry
end;
{}
Procedure CreateStack (var S: stack);
{Pre: Предусловия отсутствуют.
Post: Стек S создан и инициалезирован так, что пуст.}
Function StackEmpty (S: stack):Boolean;
{Pre: Стек S уже создан
Post: Функция возвращает true, если стек пуст, и false в противном случае.}
Function StackFull (S: stack):Boolean;
{Pre: Стек S уже создан
Post: Функция возвращает true, если стек полон, и false в противном случае.}
Procedure Push (x: stackentry; var S: stack);
{Pre: Стек S уже создан и не полон
Post: Элемент x сохранён в стеке в качестве его верхнего элемента.}
Procedure Pop (var x: stackentry; var S: stack);
{Pre: Стек S уже создан и не пуст
Post: Элемент, находящийся на вершине стека, удалён и возвращён как x.}

implementation

{}
Procedure CreateStack (var S: stack);
{Pre: Предусловия отсутствуют.
Post: Стек S создан и инициалезирован так, что пуст.}
begin
S.top:=0;
end;

Function StackEmpty (S: stack):Boolean;
{Pre: Стек S уже создан
Post: Функция возвращает true, если стек пуст, и false в противном случае.}
begin
StackEmpty:=(S.top=0)
end;

Function StackFull (S: stack):Boolean;
{Pre: Стек S уже создан
Post: Функция возвращает true, если стек полон, и false в противном случае.}
begin
StackFull:=(S.top=maxstack)
end;

Procedure Push (x: stackentry; var S: stack);
{Pre: Стек S уже создан и не полон
Post: Элемент x сохранён в стеке в качестве его верхнего элемента.}
begin
with S do
if top = maxstack then
ShowMessage('Stack is full')
{Error('Stack is full')}
else
begin
top:=top+1;
entry[top]:=x;
end;
end;

Procedure Pop (var x: stackentry; var S: stack);
{Pre: Стек S уже создан и не пуст
Post: Элемент, находящийся на вершине стека, удалён и возвращён как x.}
begin
with S do
if top = 0 then
ShowMessage('Stack is empty')
{Error('Stack is empty')}
else
begin
x:=entry[top];
top:=top-1;
end;
end;
{}
end.