не совсем понял что ты хочешь, edgar1989, но может это?
а := strtoint(TButton(Sender).Name);

edgar1989

И почему бы тебе не попробовать себя в чем-то другом?
В сельском хозяйстве, к примеру, масса вакансий и простор для творчества еще тот.

А так разве бывает???

immeno. sposibo.

Сообщение23.12.2005 20:07 [ответить] [профиль] [л. с.] edgar1989 edgar1989 писал(а): у меня вот такая проблема... мне надо узнат' имя кнопkи на такорую нажимаю. тоесть что то такое :

И почему бы тебе не попробовать себя в чем-то другом? В сельском хозяйстве, к примеру, масса вакансий и простор для творчества еще тот.[/quote]
a ty sam nachinayushim pragramistam nekagda ne byl?

А как извлечь иконку из файла и сохранить её в файл?
В ShellApi имеются

вроде бы они для этого походят, но как ими пользоваться?

Maximuss

edgar1989

На счет спасибо это к Vaitek.


Учитывая стиль твоего предыдущего поста - вполне закономерный совет.
Сейчас, похоже, все прояснилось.
А для какой цели тебе нужна информация о значении свойства Caption?

Lord_of_Darkness
Что-то нефига не отображает((((
ммм, заодно, а как её в файл сохранить?

Maximuss

Чтобы сохранить, сделай Draw в BitMap и потом сохраняй.

Lord_of_Darkness
немного упростил, мне просто все значки не нужны
вообщем не получается сохранить в файл, там пустота получается(((

А как же создать битмап? А размер???
Напиши

А после уже draw делай.
Кстати icopic.free; будет хорошим тоном.
Ой не заметил, битмап ты создаешь, но про размер не забудь.
И отрисовку на форму можешь потереть нафиг

Вопрос к тем кто юзал Microsoft Word+Delphi - Я впринципе разобрался с этой связкой(очень помогает в Word - Макрос->Запись), правда приходится после этого много чего править чтобы Delphi схватил, но одну операцию не могу переделать так, чтобы пахало в Delphi - Операция вставки номера страниц.

Макрос в Word выглядит так :

Selection.Sections(1).Headers(1).PageNumbers.Add PageNumberAlignment:= _
wdAlignPageNumberCenter, FirstPage:=True

Word юзаю так:


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



- Пишет мол "Sections" не является методом.

Все, не надо, сам понял:

Lord_of_Darkness
Сейчас всё работает
вообще я делаю вывод дерева каталога в дхтмл
такая проблема, всякие тхт не содержат значка, а как всё-таки его можно заполучить?
и ещё у меня все значки сохраняются в виде бмп в отдельную папку, а как их пережать в джпег? как использовать JPEGNeeded?

Maximuss В этой теме уже обсуждалось. Ищи.
ессно не содержат - они хранятся в shell32.dll, храни в памяти специально для txt.

Помогите пожалуйста -это прога на паскале ,реализующая незакольцованный список с заголовочным элементом, то же самое надо сделать на Delphi, только записи с несколький полей а не с одного

Program lab3;
type
PItem=^Item;
Item=record
key:integer;
next:PItem;
end;
var
prev,Phead:PItem;
operation:char;

procedure menu;
begin
writeln('enter operation');
writeln('1 - enter');
writeln('2 - delete');
writeln('3 - look all');
writeln('4 - exit');
end;
procedure add;
var NewItem,cur:PItem;
begin
New(NewItem);
readln(NewItem^.key);
cur:=Phead;
prev:=nil;
while (cur<>nil) and (newitem^.key>cur^.key) do
begin
prev:=cur;
cur:=cur^.next;
end;
If prev=nil then
begin
NewItem^.next:=Phead;
Phead:=NewItem;
end
else
begin
NewItem^.next:=prev^.next;
prev^.next:=newitem;
end;
end;

procedure del;
var
skey:integer;
pred,Delitem:PItem;
begin
if Phead<>Nil then
begin
pred:=nil;
DelItem:=Phead;
writeln('Enter skey');
readln(skey);
while (DelItem<>Nil) and (DelItem^.key<>skey) do
begin
pred:=DelItem;
DelItem:=DelItem^.next;
end;
if (delItem<>Nil) then
begin
if (DelItem<>Phead) then
begin
pred^.next:=delitem^.next;
end
else
begin
Phead:=DelItem^.next ;
Dispose(DelItem);
end;
end
else
writeln('no that');
end
else
writeln('spisok empty');
end;

procedure list;
var cur:PItem;
begin
if Phead<>Nil then
begin
cur:=Phead;
while cur<>Nil do
begin
writeln(cur^.key);
cur:=cur^.next;
end;
end
else
writeln('spisok empty');
end;

procedure finish;
begin
end;

begin

repeat
menu;
readln(operation);
case operation of
'1':add;
'2':del;
'3':list;
'4':finish;
end;
until operation='4';
end.

Maximuss забей на ExtractIcon? профи это не используют. смотри стандартную демку Virtual Listview.

Maximuss Надо использовать ExtractAssociatedIcon

Lord_of_Darkness
thx, разобрался))
Ray Adams
thx, помогло)))
constantinl
что-то не особо врубился как там это работает((

Здравствуйте, у меня такой вопрос:
Как закрепить постоянный фокус на одной скажем кнопке, чтоб при действии на чекбокс или трекбар фокус не перескакивал на них ?

Спасибо

На event повесить смену фокуса куда тебе надо
blablabla.setfocus()
кажись так
Делфи сейчас под рукой нету