Q&A
- 즐겨찾기 메뉴로 만들기 및 특정디렉토리 메뉴로 만들기...
김영대님 홈페이쥐에 있는 네오브라우져의 북마크 기능을 표현해본건데...
그렇저렇 해결은 되었으나 역시 실력이 딸려 여기서 만족해야 될것 같네요...^^
꼭 즐겨찾기가 아니라도 업무에 따라 이러한 경우가 있을것 같아
한번 해본건데 고수님들이 한번 봐주시고요 시간이 있으시는 분은
한번 해결해보시고요 좀더 좋은 방법이 있으시면 게시판이나
zzombang@hanmail.net 으로 연락 주시면 감사하겠습니다...
미해결부분 : 하위디렉토리가 n개일때
현재는 5개까지만 해결(무식한코딩으로)...
단계별로 했으니깐 초보자가 봐도 대충은 이해가 될겁니다...
참 질문에 답변해주신분께 감사드립니다...
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,FileCtrl,inifiles, Menus, Grids, Buttons, ComCtrls ;
type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
MainMenu1: TMainMenu;
ListBox2: TListBox;
N1: TMenuItem;
Button2: TButton;
Button3: TButton;
Button4: TButton;
StringGrid1: TStringGrid;
Button5: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure SearchDirectory(dir : string);
procedure SearchDirectory_Url(dir : string);
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.SearchDirectory(dir : string);
var
Searchrec : TSearchrec;
i : integer;
st : string ; //경로조립할 문자열
begin
st := dir + '*.*';
FindFirst(st, faAnyFile, SearchRec);
i := 0;
while i = 0 do
begin
if (Searchrec.Name = '.') or (Searchrec.Name = '..') then
begin
i := FindNext(SearchRec); //다음 디렉토리, 화일을 찾음
Continue;
end;
if DirectoryExists(dir + '' + SearchRec.Name) then //찾은게 디렉토리면..
begin
st := dir + '' + Searchrec.Name;
ListBox1.Items.Add('D-'+st );
i := FindNext(Searchrec);
Continue;
end;
//찾은게 파일일 경우..
st := dir + '' + SearchRec.Name;
ListBox1.Items.Add('F-'+st);
i := FindNext(SearchRec);
end;
end;
procedure TForm1.SearchDirectory_URl(dir : string);
var
Searchrec : TSearchrec;
i : integer;
st : string ; //경로조립할 문자열
begin
st := dir + '*.*';
FindFirst(st, faAnyFile, SearchRec);
i := 0;
while i = 0 do
begin
if (Searchrec.Name = '.') or (Searchrec.Name = '..') then
begin
i := FindNext(SearchRec); //다음 디렉토리, 화일을 찾음
Continue;
end;
if DirectoryExists(dir + '' + SearchRec.Name) then //찾은게 디렉토리면..
begin
st := dir + '' + Searchrec.Name;
if LowerCase(ExtractFileExt(st)) <> '.ini' then
ListBox2.Items.Add('D-'+st );
SearchDirectory_URL(st);
i := FindNext(Searchrec);
Continue;
end;
//찾은게 파일일 경우..
st := dir + '' + SearchRec.Name;
if LowerCase(ExtractFileExt(st)) <> '.ini' then
ListBox2.Items.Add('F-'+st);
i := FindNext(SearchRec);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.Clear;
SearchDirectory('C:WINDOWSFavorites');
end;
procedure TForm1.Button2Click(Sender: TObject);
var
dir : string;
i : Integer;
begin
ListBox2.Items.Clear;
for i := 0 to ListBox1.Items.Count - 1 do
begin
dir := ListBox1.Items.Strings[i];
if LowerCase(ExtractFileExt(dir)) = '.ini' then
Continue;
ListBox2.Items.Add(Dir);
if Copy(dir,1,1) = 'D' then
SearchDirectory_Url(Copy(Dir,3,Length(Dir)));
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
I : Integer;
Dir_name : String;
Temp_Name : String;
Directory_Level : Integer;
Check : Boolean;
begin
for i := 0 to ListBox2.Items.Count - 1 do
begin
Dir_Name := Copy(Listbox2.Items.Strings[i],3,Length(Listbox2.Items.Strings[i]));
Check := True;
Temp_Name := Dir_Name;
Directory_Level := 0;
while Check do
begin
if LowerCase(Temp_Name) = 'c:windowsfavorites' then
Check := False
else
begin
StringGrid1.cells[0,i+1] := Temp_Name;
Temp_Name := ExtractFileDir(Temp_Name);
end;
Inc(Directory_Level);
end;
with StringGrid1 do
begin
cells[1,i+1] := Dir_Name;
cells[2,i+1] := IntToStr(Directory_Level - 2);
end;
end;
StringGrid1.RowCount := i + 1;
end;
procedure TForm1.Button4Click(Sender: TObject);
var
i : Integer;
Menu_Name : String;
Menu_Level : Integer;
MenuItem : TMenuItem;
Menu_Hint : String;
IniFile : TIniFile;
menu_1,menu_2,menu_3,menu_4,menu_5 : integer;
begin
menu_1 := -1;
menu_2 := -1;
menu_3 := -1;
menu_4 := -1;
menu_5 := -1;
with StringGrid1 do
begin
for i := 1 to RowCount - 1 do
begin
Menu_Name := ExtractFileName(cells[1,i]);
if LowerCase(ExtractFileExt(Menu_Name)) = '.url' then
begin
IniFile := TIniFile.Create(cells[1,i]);
try
Menu_Hint := IniFile.ReadString( 'InternetShortcut', 'URL', '' );
finally
IniFile.Free;
end;
MenuItem .Hint := Menu_Hint;
Menu_Name := Copy(Menu_Name,1,Length(Menu_Name) - 4);
end;
Menu_Level := StrToInt(cells[2,i]);
MenuItem := TMenuItem.Create(Self);
MenuItem.Caption := Menu_Name;
if Menu_Level = 0 then
begin
MainMenu1.Items[0].Add(MenuItem);
inc(menu_1);
menu_2 := -1;
menu_3 := -1;
menu_4 := -1;
menu_5 := -1;
end
else
begin
case Menu_Level of
1 :
begin
MainMenu1.Items[0].Items[menu_1].Add(MenuItem);
inc(menu_2);
end;
2 :
begin
MainMenu1.Items[0].Items[menu_1].Items[menu_2].Add(MenuItem);
inc(menu_3);
end;
3 :
begin
MainMenu1.Items[0].Items[menu_1].Items[menu_2].Items[menu_3].Add(MenuItem);
inc(menu_4);
end;
4 :
begin
MainMenu1.Items[0].Items[menu_1].Items[menu_2].Items[menu_3].Items[menu_4].Add(MenuItem);
inc(menu_5);
end;
5 :
begin
MainMenu1.Items[0].Items[menu_1].Items[menu_2].Items[menu_3].Items[menu_4].Items[menu_5].Add(MenuItem);
end;
end;
end;
end;
end;
end;
end.
그렇저렇 해결은 되었으나 역시 실력이 딸려 여기서 만족해야 될것 같네요...^^
꼭 즐겨찾기가 아니라도 업무에 따라 이러한 경우가 있을것 같아
한번 해본건데 고수님들이 한번 봐주시고요 시간이 있으시는 분은
한번 해결해보시고요 좀더 좋은 방법이 있으시면 게시판이나
zzombang@hanmail.net 으로 연락 주시면 감사하겠습니다...
미해결부분 : 하위디렉토리가 n개일때
현재는 5개까지만 해결(무식한코딩으로)...
단계별로 했으니깐 초보자가 봐도 대충은 이해가 될겁니다...
참 질문에 답변해주신분께 감사드립니다...
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,FileCtrl,inifiles, Menus, Grids, Buttons, ComCtrls ;
type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
MainMenu1: TMainMenu;
ListBox2: TListBox;
N1: TMenuItem;
Button2: TButton;
Button3: TButton;
Button4: TButton;
StringGrid1: TStringGrid;
Button5: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure SearchDirectory(dir : string);
procedure SearchDirectory_Url(dir : string);
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.SearchDirectory(dir : string);
var
Searchrec : TSearchrec;
i : integer;
st : string ; //경로조립할 문자열
begin
st := dir + '*.*';
FindFirst(st, faAnyFile, SearchRec);
i := 0;
while i = 0 do
begin
if (Searchrec.Name = '.') or (Searchrec.Name = '..') then
begin
i := FindNext(SearchRec); //다음 디렉토리, 화일을 찾음
Continue;
end;
if DirectoryExists(dir + '' + SearchRec.Name) then //찾은게 디렉토리면..
begin
st := dir + '' + Searchrec.Name;
ListBox1.Items.Add('D-'+st );
i := FindNext(Searchrec);
Continue;
end;
//찾은게 파일일 경우..
st := dir + '' + SearchRec.Name;
ListBox1.Items.Add('F-'+st);
i := FindNext(SearchRec);
end;
end;
procedure TForm1.SearchDirectory_URl(dir : string);
var
Searchrec : TSearchrec;
i : integer;
st : string ; //경로조립할 문자열
begin
st := dir + '*.*';
FindFirst(st, faAnyFile, SearchRec);
i := 0;
while i = 0 do
begin
if (Searchrec.Name = '.') or (Searchrec.Name = '..') then
begin
i := FindNext(SearchRec); //다음 디렉토리, 화일을 찾음
Continue;
end;
if DirectoryExists(dir + '' + SearchRec.Name) then //찾은게 디렉토리면..
begin
st := dir + '' + Searchrec.Name;
if LowerCase(ExtractFileExt(st)) <> '.ini' then
ListBox2.Items.Add('D-'+st );
SearchDirectory_URL(st);
i := FindNext(Searchrec);
Continue;
end;
//찾은게 파일일 경우..
st := dir + '' + SearchRec.Name;
if LowerCase(ExtractFileExt(st)) <> '.ini' then
ListBox2.Items.Add('F-'+st);
i := FindNext(SearchRec);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.Clear;
SearchDirectory('C:WINDOWSFavorites');
end;
procedure TForm1.Button2Click(Sender: TObject);
var
dir : string;
i : Integer;
begin
ListBox2.Items.Clear;
for i := 0 to ListBox1.Items.Count - 1 do
begin
dir := ListBox1.Items.Strings[i];
if LowerCase(ExtractFileExt(dir)) = '.ini' then
Continue;
ListBox2.Items.Add(Dir);
if Copy(dir,1,1) = 'D' then
SearchDirectory_Url(Copy(Dir,3,Length(Dir)));
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
I : Integer;
Dir_name : String;
Temp_Name : String;
Directory_Level : Integer;
Check : Boolean;
begin
for i := 0 to ListBox2.Items.Count - 1 do
begin
Dir_Name := Copy(Listbox2.Items.Strings[i],3,Length(Listbox2.Items.Strings[i]));
Check := True;
Temp_Name := Dir_Name;
Directory_Level := 0;
while Check do
begin
if LowerCase(Temp_Name) = 'c:windowsfavorites' then
Check := False
else
begin
StringGrid1.cells[0,i+1] := Temp_Name;
Temp_Name := ExtractFileDir(Temp_Name);
end;
Inc(Directory_Level);
end;
with StringGrid1 do
begin
cells[1,i+1] := Dir_Name;
cells[2,i+1] := IntToStr(Directory_Level - 2);
end;
end;
StringGrid1.RowCount := i + 1;
end;
procedure TForm1.Button4Click(Sender: TObject);
var
i : Integer;
Menu_Name : String;
Menu_Level : Integer;
MenuItem : TMenuItem;
Menu_Hint : String;
IniFile : TIniFile;
menu_1,menu_2,menu_3,menu_4,menu_5 : integer;
begin
menu_1 := -1;
menu_2 := -1;
menu_3 := -1;
menu_4 := -1;
menu_5 := -1;
with StringGrid1 do
begin
for i := 1 to RowCount - 1 do
begin
Menu_Name := ExtractFileName(cells[1,i]);
if LowerCase(ExtractFileExt(Menu_Name)) = '.url' then
begin
IniFile := TIniFile.Create(cells[1,i]);
try
Menu_Hint := IniFile.ReadString( 'InternetShortcut', 'URL', '' );
finally
IniFile.Free;
end;
MenuItem .Hint := Menu_Hint;
Menu_Name := Copy(Menu_Name,1,Length(Menu_Name) - 4);
end;
Menu_Level := StrToInt(cells[2,i]);
MenuItem := TMenuItem.Create(Self);
MenuItem.Caption := Menu_Name;
if Menu_Level = 0 then
begin
MainMenu1.Items[0].Add(MenuItem);
inc(menu_1);
menu_2 := -1;
menu_3 := -1;
menu_4 := -1;
menu_5 := -1;
end
else
begin
case Menu_Level of
1 :
begin
MainMenu1.Items[0].Items[menu_1].Add(MenuItem);
inc(menu_2);
end;
2 :
begin
MainMenu1.Items[0].Items[menu_1].Items[menu_2].Add(MenuItem);
inc(menu_3);
end;
3 :
begin
MainMenu1.Items[0].Items[menu_1].Items[menu_2].Items[menu_3].Add(MenuItem);
inc(menu_4);
end;
4 :
begin
MainMenu1.Items[0].Items[menu_1].Items[menu_2].Items[menu_3].Items[menu_4].Add(MenuItem);
inc(menu_5);
end;
5 :
begin
MainMenu1.Items[0].Items[menu_1].Items[menu_2].Items[menu_3].Items[menu_4].Items[menu_5].Add(MenuItem);
end;
end;
end;
end;
end;
end;
end.
3
COMMENTS
-
-
안녕하세요. 최용일입니다.
그냥 대강보고 말씀드리는 거니까 제 말이 틀리더라도 이해해 주세요.
마지막의 case문(Button4Click) 때문에 5레벨까지만 검색을 하신것 같은데요 menu_1,
menu_2, menu_3, ... 이런 값들을 오픈배열에 저장해서 case문 대신에 for 문을
사용하시는 것이 어떨까하는 생각이 듭니다.
var
MenuArray: array of Integer;
// index 0 = menu_1, index 1 = menu_2, ...
아래와 같이 for문을 이용해서 레벨에 따라 메뉴를 추가할 위치를 찾습니다.
SearchMenuItem := MainMenu1.Items[0];
for I := 1 to Menu_Level do
SearchMenuItem := SearchMenuItem.Items[MenuArray[I - 1]];
SearchMenuItem.Add(MenuItem);
Inc(MenuArray[I]);
위와 같이 하시면 몇단계든 문제없을것 같습니다. 안되신다면 멜 주세요. 다시
연구해 볼께요.
^^ 항상 즐거운 프로그래밍 하세요...
> case Menu_Level of
> 1 :
> begin
> MainMenu1.Items[0].Items[menu_1].Add(MenuItem);
> inc(menu_2);
> end;
> 2 :
> begin
> MainMenu1.Items[0].Items[menu_1].Items[menu_2].Add(MenuItem);
> inc(menu_3);
> end;
> 3 :
> begin
> MainMenu1.Items[0].Items[menu_1].Items[menu_2].Items[menu_3].Add(MenuItem);
공성환 wrote:
> 김영대님 홈페이쥐에 있는 네오브라우져의 북마크 기능을 표현해본건데...
> 그렇저렇 해결은 되었으나 역시 실력이 딸려 여기서 만족해야 될것 같네요...^^
>
> 꼭 즐겨찾기가 아니라도 업무에 따라 이러한 경우가 있을것 같아
> 한번 해본건데 고수님들이 한번 봐주시고요 시간이 있으시는 분은
> 한번 해결해보시고요 좀더 좋은 방법이 있으시면 게시판이나
> zzombang@hanmail.net 으로 연락 주시면 감사하겠습니다...
>
> 미해결부분 : 하위디렉토리가 n개일때
> 현재는 5개까지만 해결(무식한코딩으로)...
>
> 단계별로 했으니깐 초보자가 봐도 대충은 이해가 될겁니다...
>
> 참 질문에 답변해주신분께 감사드립니다...
>
>
> unit Unit1;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> StdCtrls,FileCtrl,inifiles, Menus, Grids, Buttons, ComCtrls ;
>
> type
> TForm1 = class(TForm)
> ListBox1: TListBox;
> Button1: TButton;
> MainMenu1: TMainMenu;
> ListBox2: TListBox;
> N1: TMenuItem;
> Button2: TButton;
> Button3: TButton;
> Button4: TButton;
> StringGrid1: TStringGrid;
> Button5: TButton;
> procedure Button1Click(Sender: TObject);
> procedure Button2Click(Sender: TObject);
> procedure Button3Click(Sender: TObject);
> procedure Button4Click(Sender: TObject);
> private
> { Private declarations }
> public
> { Public declarations }
> procedure SearchDirectory(dir : string);
> procedure SearchDirectory_Url(dir : string);
> end;
>
> var
> Form1: TForm1;
>
> implementation
>
> {$R *.DFM}
>
> procedure TForm1.SearchDirectory(dir : string);
> var
> Searchrec : TSearchrec;
> i : integer;
> st : string ; //경로조립할 문자열
> begin
> st := dir + '*.*';
> FindFirst(st, faAnyFile, SearchRec);
> i := 0;
> while i = 0 do
> begin
> if (Searchrec.Name = '.') or (Searchrec.Name = '..') then
> begin
> i := FindNext(SearchRec); //다음 디렉토리, 화일을 찾음
> Continue;
> end;
>
> if DirectoryExists(dir + '' + SearchRec.Name) then //찾은게 디렉토리면..
> begin
> st := dir + '' + Searchrec.Name;
> ListBox1.Items.Add('D-'+st );
>
> i := FindNext(Searchrec);
> Continue;
> end;
>
> //찾은게 파일일 경우..
> st := dir + '' + SearchRec.Name;
> ListBox1.Items.Add('F-'+st);
> i := FindNext(SearchRec);
> end;
> end;
>
> procedure TForm1.SearchDirectory_URl(dir : string);
> var
> Searchrec : TSearchrec;
> i : integer;
> st : string ; //경로조립할 문자열
> begin
> st := dir + '*.*';
> FindFirst(st, faAnyFile, SearchRec);
> i := 0;
> while i = 0 do
> begin
> if (Searchrec.Name = '.') or (Searchrec.Name = '..') then
> begin
> i := FindNext(SearchRec); //다음 디렉토리, 화일을 찾음
> Continue;
> end;
>
> if DirectoryExists(dir + '' + SearchRec.Name) then //찾은게 디렉토리면..
> begin
> st := dir + '' + Searchrec.Name;
>
> if LowerCase(ExtractFileExt(st)) <> '.ini' then
> ListBox2.Items.Add('D-'+st );
>
> SearchDirectory_URL(st);
> i := FindNext(Searchrec);
> Continue;
> end;
>
> //찾은게 파일일 경우..
> st := dir + '' + SearchRec.Name;
>
> if LowerCase(ExtractFileExt(st)) <> '.ini' then
> ListBox2.Items.Add('F-'+st);
> i := FindNext(SearchRec);
> end;
> end;
>
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> ListBox1.Items.Clear;
> SearchDirectory('C:WINDOWSFavorites');
> end;
>
> procedure TForm1.Button2Click(Sender: TObject);
> var
> dir : string;
> i : Integer;
> begin
> ListBox2.Items.Clear;
> for i := 0 to ListBox1.Items.Count - 1 do
> begin
> dir := ListBox1.Items.Strings[i];
>
> if LowerCase(ExtractFileExt(dir)) = '.ini' then
> Continue;
>
> ListBox2.Items.Add(Dir);
> if Copy(dir,1,1) = 'D' then
> SearchDirectory_Url(Copy(Dir,3,Length(Dir)));
> end;
> end;
>
> procedure TForm1.Button3Click(Sender: TObject);
> var
> I : Integer;
> Dir_name : String;
> Temp_Name : String;
> Directory_Level : Integer;
> Check : Boolean;
> begin
> for i := 0 to ListBox2.Items.Count - 1 do
> begin
> Dir_Name := Copy(Listbox2.Items.Strings[i],3,Length(Listbox2.Items.Strings[i]));
> Check := True;
> Temp_Name := Dir_Name;
> Directory_Level := 0;
> while Check do
> begin
> if LowerCase(Temp_Name) = 'c:windowsfavorites' then
> Check := False
> else
> begin
> StringGrid1.cells[0,i+1] := Temp_Name;
> Temp_Name := ExtractFileDir(Temp_Name);
> end;
> Inc(Directory_Level);
> end;
>
> with StringGrid1 do
> begin
> cells[1,i+1] := Dir_Name;
> cells[2,i+1] := IntToStr(Directory_Level - 2);
> end;
> end;
>
> StringGrid1.RowCount := i + 1;
> end;
>
> procedure TForm1.Button4Click(Sender: TObject);
> var
> i : Integer;
> Menu_Name : String;
> Menu_Level : Integer;
> MenuItem : TMenuItem;
> Menu_Hint : String;
> IniFile : TIniFile;
> menu_1,menu_2,menu_3,menu_4,menu_5 : integer;
> begin
> menu_1 := -1;
> menu_2 := -1;
> menu_3 := -1;
> menu_4 := -1;
> menu_5 := -1;
>
> with StringGrid1 do
> begin
> for i := 1 to RowCount - 1 do
> begin
> Menu_Name := ExtractFileName(cells[1,i]);
>
> if LowerCase(ExtractFileExt(Menu_Name)) = '.url' then
> begin
> IniFile := TIniFile.Create(cells[1,i]);
> try
> Menu_Hint := IniFile.ReadString( 'InternetShortcut', 'URL', '' );
> finally
> IniFile.Free;
> end;
> MenuItem .Hint := Menu_Hint;
> Menu_Name := Copy(Menu_Name,1,Length(Menu_Name) - 4);
> end;
>
> Menu_Level := StrToInt(cells[2,i]);
> MenuItem := TMenuItem.Create(Self);
> MenuItem.Caption := Menu_Name;
>
> if Menu_Level = 0 then
> begin
> MainMenu1.Items[0].Add(MenuItem);
> inc(menu_1);
> menu_2 := -1;
> menu_3 := -1;
> menu_4 := -1;
> menu_5 := -1;
> end
> else
> begin
> case Menu_Level of
> 1 :
> begin
> MainMenu1.Items[0].Items[menu_1].Add(MenuItem);
> inc(menu_2);
> end;
> 2 :
> begin
> MainMenu1.Items[0].Items[menu_1].Items[menu_2].Add(MenuItem);
> inc(menu_3);
> end;
> 3 :
> begin
> MainMenu1.Items[0].Items[menu_1].Items[menu_2].Items[menu_3].Add(MenuItem);
> inc(menu_4);
> end;
> 4 :
> begin
> MainMenu1.Items[0].Items[menu_1].Items[menu_2].Items[menu_3].Items[menu_4].Add(MenuItem);
> inc(menu_5);
> end;
> 5 :
> begin
> MainMenu1.Items[0].Items[menu_1].Items[menu_2].Items[menu_3].Items[menu_4].Items[menu_5].Add(MenuItem);
> end;
> end;
> end;
> end;
> end;
> end;
>
> end.
-
메뉴가 코드상에서 자동생성되는데.....
그렇다면..그메뉴의 클릭이벤트발생시...해당 URL로 이동하는 코드가 들어가야하는데..
도대체 어케해야 하나염......
아무리 생각하구 찾아봐두 몰겠네염.......
암튼....고수님덜..많은 지도 부탁드려염..
존 하루 되시구염..
(NOTICE) You must be logged in to comment on this post.
-
- 공성환
- •
- 2000.04.08 04:29
- 3 COMMENTS
- /
- 0 LIKES
김영대님 홈페이쥐에 있는 네오브라우져의 북마크 기능을 표현해본건데... 그렇저렇 해결은 되었으나 역시 실력이 딸려 여기서 만족해야 될것 같네요...^^ 꼭 즐겨찾기가 아니라도 업무에 따라 이러한 경우가 있을것 같아 한번 해본건데 ...-
델초보•2001.07.12 04:01님이 작성하신 SearchDirectory를 제 방식때로 바꿨어요. 이렇게 하면 무한으로 작동이 가능해여. proc...
-
최용일•2000.04.08 23:36안녕하세요. 최용일입니다. 그냥 대강보고 말씀드리는 거니까 제 말이 틀리더라도 이해해 주세요. 마...
-
델파이왕초보•2000.07.20 19:26메뉴가 코드상에서 자동생성되는데..... 그렇다면..그메뉴의 클릭이벤트발생시...해당 URL로 이동하는 코...
-
- 이치형
- 2000.09.02 07:47
- 0 COMMENTS
- /
- 0 LIKES
-
- JackSonP
- 2000.04.08 04:01
- 0 COMMENTS
- /
- 0 LIKES
-
- Fox
- 2000.04.08 03:48
- 0 COMMENTS
- /
- 0 LIKES
-
- 김봉준
- •
- 2000.04.08 03:13
- 1 COMMENTS
- /
- 0 LIKES
-
조규춘•2000.04.08 03:43김봉준 wrote: > 안녕하세요.. 늘상 질문만 하고 도움 많이 받아가는 김봉준입니다..--; > > 넵.. 다...
-
- 어린왕자
- •
- 2000.04.08 02:57
- 9 COMMENTS
- /
- 0 LIKES
-
최용일•2000.04.08 08:38안녕하세요. 최용일입니다. 정적으로 만들때
-
어린왕자•2000.04.08 22:45최용일 wrote: > 안녕하세요. 최용일입니다. > > 정적으로 만들때
-
최용일•2000.04.08 22:50축하합니다. 문제를 해결하셨다니 다행이네요... ^^ 항상 즐거운 프로그래밍하세요... 어린왕자 wrot...
-
어린왕자•2000.04.08 22:10최용일 wrote: > 안녕하세요. 최용일입니다. > > 정적으로 만들때
-
나는 29살이다...•2000.04.08 06:54음... TPaintBox는요 TGraphicControl에서 상속받아 왔거든요.. TGraphicControl에는 Window DC에 Paint...
-
어린왕자•2000.04.08 22:46나는 29살이다... wrote: > 음... TPaintBox는요 TGraphicControl에서 상속받아 왔거든요.. > > TGraph...
-
어린왕자•2000.04.08 21:54나는 29살이다... wrote: > 음... TPaintBox는요 TGraphicControl에서 상속받아 왔거든요.. > > TGraph...
- • • •
-
- 문형록
- •
- 2000.04.08 02:21
- 3 COMMENTS
- /
- 0 LIKES
-
어린왕자•2000.04.08 02:42문형록 wrote: > 프로그램 상에서 엔터키를 누루면 '확인' 과 같은 기능을 할수 있겠금 하고 싶은데, 기능...
-
이치형•2000.04.08 02:36문형록 wrote: > 프로그램 상에서 엔터키를 누루면 '확인' 과 같은 기능을 할수 있겠금 하고 싶은데, 기능...
-
문형록•2000.04.09 00:07아이구 정말로 고맙네요 한번해보고요 다시 글 띄울게요
-
- 허진
- 2000.04.08 02:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 궁금녀
- •
- 2000.04.08 01:35
- 2 COMMENTS
- /
- 0 LIKES
-
이치형•2000.04.08 03:25궁금녀 wrote: > "QuickRep1.Zoom := 100" > > 이렇게 했는데 아예 레포트가 안 보이거든요... > > ...
-
조규춘•2000.04.08 03:24궁금녀 wrote: > "QuickRep1.Zoom := 100" > > 이렇게 했는데 아예 레포트가 안 보이거든요... > > ...
-
- 이현신
- 2000.04.08 01:22
- 0 COMMENTS
- /
- 0 LIKES
-
- 조준래
- •
- 2000.04.08 01:09
- 1 COMMENTS
- /
- 0 LIKES
-
조준래•2000.04.08 02:02음냐.. 델파이 페이지에서 FAQ를 검색해 본 결과.. 기대하지도 않았는데 바로 그 에러 메시지에 대한 해답...
-
-
유레카•2000.04.08 18:55TQuery보다 마스터-디테일을 사용할 수 있는 TTable을 사용해보세요.. A DB를 마스터 테이블로 B DB를 디...
-
김명찬•2000.04.10 21:07답변 감사합니다. 그러나 쿼리로도 할 수 있는지에 더 관심이 있습니다. DB 두개중 실제로 하나만을 거...
-
유레카•2000.04.11 02:55답변이 늦었습니다.. 물론 퀴리로도 가능합니다.. QuickRep1.DataSet := '마스터로 사용할 쿼리' ...
-
-
- 정문수
- 2000.04.08 00:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 차니
- •
- 2000.04.08 00:22
- 1 COMMENTS
- /
- 0 LIKES
-
이치형•2000.04.08 03:35차니 wrote: > 안녕하세여 고수님들... > DB를 합치고 싶은데여...어떤 방법을 쓰면 될까여 부탁드립니다...
-
- 차니
- 2000.04.08 00:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 궁금녀
- •
- 2000.04.08 00:17
- 1 COMMENTS
- /
- 0 LIKES
-
조규춘•2000.04.08 00:31궁금녀 wrote: > 안녕하세요? > > 저는 델파이에 입문한지 얼마 되지 않은 완전 초보이거든요 > > ...
-
- 공성환
- •
- 2000.04.08 00:03
- 2 COMMENTS
- /
- 0 LIKES
-
어린왕자•2000.04.08 03:59공성환 wrote: > procedure TForm1.Button1Click(Sender: TObject); > var > Menu : TMenuItem; >...
-
조준래•2000.04.08 02:08공성환 wrote: > procedure TForm1.Button1Click(Sender: TObject); > var > Menu : TMenuItem; >...
-
- seagod
- •
- 2000.04.07 23:25
- 1 COMMENTS
- /
- 0 LIKES
-
조준래•2000.04.08 02:3590M 를 메모리에 할당하지 마시고 (TRichEdit 등을 이용해서) 파일을 부분적으로 읽어 변환하는 방법을 사...
-
- 초보 미디어
- 2000.04.07 23:10
- 0 COMMENTS
- /
- 0 LIKES
-
- 황 현
- •
- 2000.04.07 22:02
- 1 COMMENTS
- /
- 0 LIKES
-
김진호•2000.04.08 02:46황 현 wrote: > 델파이로 NT 용 웹메일서버 제작이 가능 한지요.. > 그리고 현재 델파이로 만든 상용 웹...
이렇게 하면 무한으로 작동이 가능해여.
procedure TForm1.SearchDirectory(iDir : String; CurrMenu: TMenuItem);
var
iResult: Integer;
iPos: Integer;
iMenu: TMenuItem;
FindRec: TSearchRec;
begin
FindFirst(iDir + '*.*', faDirectory + faArchive, FindRec);
iResult := 0;
while iResult = 0 do
begin
Case FindRec.Attr of
faDirectory: // 폴더인 경우
begin
if (FindRec.Name <> '.') and (FindRec.Name <> '..') then
begin
iMenu := TMenuItem.Create(Self);
iMenu.Caption := FindRec.Name;
CurrMenu.add(iMenu);
SearchDirectory(iDir + '' + FindRec.Name, CurrMenu.Items[CurrMenu.Count-1]);
end;
end;
faArchive: // 파일인 경우
begin
iPos := Pos('.url', FindRec.Name);
if iPos > 0 then
begin
iMenu := TMenuItem.Create(Self);
iMenu.Caption := Copy(FindRec.Name, 1, Length(FindRec.Name)-4);
iMenu.OnClick := PopupMenuClick;
CurrMenu.Add(iMenu);
end;
end;
end;
iResult := FindNext(FindRec);
end;
end;
procedure TForm1.PopupMenuClick(Sender: TObject);
begin
ShowMessage((Sender as TMenuItem).Caption + #13 + '메뉴가 클릭되었습니다.');
end;
procedure TForm1.ToolButton1Click(Sender: TObject);
begin
SearchDirectory('C:WindowsFavorites', FavoritePopup.Items);
ToolButton1.Enabled := False;
end;